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

Question

[MainNika]

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


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

Answer 1

[Horse]

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

Comments

[Олег Матрозов]

По моему хватило бы и:
ToolBotton2.Left = ToolButton1.Left; (при условии, что 1 находиться левее 2)

[Horse]

Зачем гадать. Проверьте.

[Олег Матрозов]

Я и не гадаю ;-)

[MainNika]

Не работает ни вариант Horse, ни Mear

[Horse]

Как проверенно?
А… этоже Lazarus, а не VCL. Или я не правильно понимаю…
После того как поменяли значения left — попробуйте вызвать перерисовку окон.

[Олег Матрозов]

Ну… на D2010 мой вариант работает ))) видимо проблема действительно в Lazarus.

[MainNika]

Работает вариант если к ToolButton2.Left делать значение на 1 меньше чем ToolButton1.Left, далее ToolBar перестраивается сам.
Варианты и Horse и Mear работают при вычитании единицы.
Сошелся на варианте:
ToolButton2.Left := ToolButton1.Left-1;

[Horse]

Лол! Дейстительно опечатка, а под Delphi 7 работало)))

Answer 2

[nickkee]

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

Comments

[MainNika]

Опечатку я учитывал сразу. Проблему решил, напишу как в комментариях выше.