Пример стандартного присвоения события в run-time:

 

Code:

type

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

 

TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

private

procedure Click(Sender: TObject);

end;

 

var Form1: TForm1;

 

implementation

 

procedure TForm1.Click(Sender: TObject);

begin

// do something

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

button1.OnClick:=Click;

end;

 

end.

 

 

 

 

Автор:Vit  

Взято с Vingradruhttps://forum.vingrad

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить