Компоненты

← →
zool (2002-01-24 20:27) [0]

Уважаемые програмисты. Слезно прошу о помощи! Я создал компонент на форме во время выполнения программы (компонент - button 1). Можна ли обрабатывать события on-click данного компонента. Если не сложно, то скиньте пример. С-п-а-с-и-б-о.

← →
Юрий Зотов © (2002-01-24 20:33) [1]

type
TForm1 = class(TForm)
...
procedure MyClick(Sender: TObject); // написать ручками
...
end;

procedure TForm1.MyClick(Sender: TObject); // написать ручками
begin
... // Ваш код
end;

И теперь там, где Вы создаете Button1, напишите строку:
Button1.OnClick := MyClick;

TMyForm=class(TForm) //............. procedure RunTimeClickHandler(Sender:TObject); //............. end; //................. RTButton := TButton.Create(Self); RTButton.Parent := Self; RTButton.OnClick := RunTimeClickHandler;

Компоненты Найти похожие ветки