Как динамически установить свойство привязки кнопки?

#delphi

#delphi

Вопрос:

Я хочу динамически устанавливать TBitBtn свойство привязки.

Сначала я установил привязку кнопки как верхнюю правую во время разработки. В этом событии нажатия кнопки я устанавливаю форму BorderStyle как bsDialog . Тогда должен быть пробел, как показано на рисунке. Я хочу, чтобы кнопка была рядом с кнопкой закрытия.

Итак, мне нужно установить левую кнопку и ее привязку как верхнюю правую после назначения стиля границы как bsDialog . Правильно ли это?

Я не знаю, как динамически изменять свойство привязки введите описание изображения здесь

Спасибо, Ракеш

Ответ №1:

В Delphi FireMonkey (XE4) для динамической установки якорей вы делаете:

 Button1.Anchors := [TAnchorKind.akTop, TAnchorKind.akRight];
  

Ответ №2:

Я не знаю, вижу ли я вашу проблему. Если речь идет о синтаксисе, то здесь вы идете:

   BitBtn1.Left:= 666;
  BitBtn1.Anchors := [akTop, akRight];
  

Это способ изменить положение и привязку в коде.

Комментарии:

1. Код @TLama все еще может изменить размер. Или он просто экспериментирует, изучая то, что мы с вами уже знаем. Кто знает.