| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как связать переменную с опр. кнопкой, зная Name этой кнопки? [D7, XP]
Setor © (2006-05-30 15:58:00)Как связать переменную с объектом кнопки, зная Name этой кнопки?
Упрощённый пример: некая процедура должна кликать по определённой кнопке (кнопок много) и название (свойство Name) этой кнопки передаётся в параметре в качестве строки. Требуется связать переменную типа TButton с выбранной кнопкой.
Это должно выглядеть похожем на данный код. Но представленный код конечно же нерабочий. ButtonName - это имя кнопки, управление над которой нужно получить.
procedure TForm1.Test();
var
WorkButton: TButton;
begin
// Нерабочее связывание
WorkButton:= TButton( 'ButtonName' );
// Далее работаем с выбранной кнопкой
WorkButton.Click();
end;
Setor (2006-05-30 18:08:00) [1]
> параметр представлен как класс?
Нет. Я не очень жалую объектную модель Delphi, в отличии от других языков, на которых пишу, т.к. использую его в основном для быстрого кодинга небольших нужных мне утилит. В основном сетевые приложения.
umbra (2006-05-30 17:01:00) [2]параметр представлен как класс?
Setor (2006-05-30 16:43:00) [3]
> Обращаться к объектам по их именам - не лучший способ "общения"
У меня есть форма изменения неких параметров. Тип всех параметров одинаковый. Количество их около 10. У каждого параметра есть несколько свойств (trackbar, checkbox, button) и чтобы не писать один и тот же код 10 раз приходится делать таким образом. Id компонента передаю через Tag.
Можно было как вариант - сделать выпадающий список этих опций, но было решено отобразить их все на одной форме для удобной настройки.
В предыдущем моём посте глупая ошибка - должно быть With TButton (FindComponent('Button1')) ...
novill (2006-05-30 16:42:00) [4]
> MsGuns
ВАши предложения?
MsGuns (2006-05-30 16:29:00) [5]Обращаться к объектам по их именам - не лучший способ "общения"
Setor (2006-05-30 16:10:00) [6]Нашёл решение...
With TForm1 (FindComponent('Button1')) do
Enabled:= true;
MBo (2006-05-30 16:10:00) [7]FindComponent
| |
