Присваивание обработчика события

@taras atavin · Регистрация: 24.11.2009

Author24 — интернет-сервис помощи студентам

Пусть кнопка создана так:

Delphi

Button:=TSpeedButton.Create(FormMain);
Button.Parent:=FormMain;
Button.Width :=23;
Button.Height:=23;
Button.Left  :=0;
Button.Top   :=0;
Button.Glyph.LoadFromFile('Button.bmp');

. Как к этой кнопке привязать обработчик события, например, OnClick. Я попробовал как в Delphi бросить кноку на форму вручную с редактора формы, создать обработчик и присвоить, а саму кнопку удалить, но так не получается.

@rangerx · 17.05.2011, 14:29

В секции private главной формы пишешь

Pascal

private
  Button: TSpeedButton;
  procedure OnButtonClick(Sender: TObject);
...

затем описываешь саму процедуру(если нажать ctrl+shift+c она создастся автоматически)

Pascal

procedure TFormMain.OnButtonClick(Sender: TObject);
begin
 
end;

ну и собственно присваиваешь обработчик кнопке

Pascal

1	Button.OnClick:= @OnButtonClick;

	17.05.2011, 14:29