Скачать: CL | DM;

Как связать переменную с опр. кнопкой, зная Name этой кнопки?   Найти похожие ветки 

← →
Setor   (2006-05-30 15:58) [0]

Как связать переменную с объектом кнопки, зная Name этой кнопки?

Упрощённый пример: некая процедура должна кликать по определённой кнопке (кнопок много) и название (свойство Name) этой кнопки передаётся в параметре в качестве строки. Требуется связать переменную типа TButton с выбранной кнопкой.

Это должно выглядеть похожем на данный код. Но представленный код конечно же нерабочий. ButtonName - это имя кнопки, управление над которой нужно получить.

procedure TForm1.Test();
var
 WorkButton: TButton;
begin
 // Нерабочее связывание
 WorkButton:= TButton( "ButtonName" );

 // Далее работаем с выбранной кнопкой
 WorkButton.Click();
end;

---

← →
Setor   (2006-05-30 16:10) [1]

Нашёл решение...

With TForm1 (FindComponent("Button1")) do
   Enabled:= true;

---

← →
MBo ©   (2006-05-30 16:10) [2]

FindComponent

---

← →
MsGuns ©   (2006-05-30 16:29) [3]

Обращаться к объектам по их именам - не лучший способ "общения"

---

← →
novill ©   (2006-05-30 16:42) [4]

> MsGuns

ВАши предложения?

---

← →
Setor   (2006-05-30 16:43) [5]

> Обращаться к объектам по их именам - не лучший способ "общения"

У меня есть форма изменения неких параметров. Тип всех параметров одинаковый. Количество их около 10. У каждого параметра есть несколько свойств (trackbar, checkbox, button) и чтобы не писать один и тот же код 10 раз приходится делать таким образом. Id компонента передаю через Tag.

Можно было как вариант - сделать выпадающий список этих опций, но было решено отобразить их все на одной форме для удобной настройки.

В предыдущем моём посте глупая ошибка - должно быть With TButton (FindComponent("Button1")) ...

---

← →
umbra ©   (2006-05-30 17:01) [6]

параметр представлен как класс?

---

← →
Setor   (2006-05-30 18:08) [7]

> параметр представлен как класс?

Нет. Я не очень жалую объектную модель Delphi, в отличии от других языков, на которых пишу, т.к. использую его в основном для быстрого кодинга небольших нужных мне утилит. В основном сетевые приложения.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c