Сведения о вопросе

None

12:14, 17th August, 2020

Теги

Lazarus    

Вопрос по Delphi (Lazarus)?

Просмотров: 290   Ответов: 2

На форме есть TToolBar. На нем соответственно кнопки TToolButton.


Как можно программно, в процессе выполнения программы, перемещать (менять местами) кнопки на этом ToolBar'е?



  Сведения об ответе

SEEYOU

11:51, 11th August, 2020

procedure TForm1.FormCreate(Sender: TObject);
var temp: integer;
begin
temp := ToolButton1.Left;
ToolButton1.Left := ToolButton2.Left;
ToolButton2.Left := ToolButton1.Left;
end;


  Сведения об ответе

nYU

01:54, 15th August, 2020

у Horse опечатка, надо делать так:
procedure TForm1.FormCreate(Sender: TObject);
var temp: integer;
begin
temp := ToolButton1.Left;
ToolButton1.Left := ToolButton2.Left;
ToolButton2.Left := temp;
end;


Ответить на вопрос

Чтобы ответить на вопрос вам нужно войти в систему или зарегистрироваться