![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Компоненты
zool © (2002-01-24 20:27:00)Уважаемые програмисты. Слезно прошу о помощи! Я создал компонент на форме во время выполнения программы (компонент - button 1). Можна ли обрабатывать события on-click данного компонента. Если не сложно, то скиньте пример. С-п-а-с-и-б-о.
DMN (2002-01-24 20:35:00) [1]
TMyForm=class(TForm)
//.............
procedure RunTimeClickHandler(Sender:TObject);
//.............
end;
//.................
RTButton := TButton.Create(Self);
RTButton.Parent := Self;
RTButton.OnClick := RunTimeClickHandler;
Юрий Зотов (2002-01-24 20:33:00) [2]type
TForm1 = class(TForm)
...
procedure MyClick(Sender: TObject); // написать ручками
...
end;
procedure TForm1.MyClick(Sender: TObject); // написать ручками
begin
... // Ваш код
end;
И теперь там, где Вы создаете Button1, напишите строку:
Button1.OnClick := MyClick;