Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Событие на Мышь   Найти похожие ветки 

← →
Владислав   (2002-01-17 09:39) [17]

> Dennis S © (16.01.02 15:16)

А как теперь обратиться к кнопке bt2, например?

В коде, который я приводил (см. Владислав © (16.01.02 12:54))
в обработчике события OnClick добавь код:

procedure Form1.ButtonClick(Sender: TObject);
var
CurComp: TComponent;
begin
ShowMessage("Имя кнопки: "+TComponent(Sender).Name);
CurComp:=FindComponent(TComponent(Sender).Name);
if CurComp is TButton then
with TButton(CurComp) do begin
... //Здесь то, что ты хочешь сделать с компонентом (кнопкой)
end
end;

---

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

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c