Несколько событий.

[min@y™]

В первом посте, я писал, что все события одного компонента.

а в 8-м я спрашивал, что за компонент.

[kropotkina-alice]

Сообщение от min@y™

а в 8-м я спрашивал, что за компонент.

А мне стало интересно, какие-такие 10 событий ТС умудрился повесить на один-единственный TButton???

Сообщение от dimkoss

У меня 10 ивентов на одном компоненте, как сделать, чтобы не пришлось копировать код 10 раз?

[Dvoishnik]

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('привет Мир!')
end;

procedure TForm1.Button1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
Button1Click(self);
end;

procedure TForm1.Button1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Button1Click(self);
end;

procedure TForm1.Button1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Button1Click(self);
end;

procedure TForm1.Button1EndDock(Sender, Target: TObject; X, Y: Integer);
begin
Button1Click(self);
end;

procedure TForm1.Button1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
Button1Click(self);
end;

procedure TForm1.Button1Enter(Sender: TObject);
begin
Button1Click(self);
end;

procedure TForm1.Button1Exit(Sender: TObject);
begin
Button1Click(self);
end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Button1Click(self);
end;

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
Button1Click(self);
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Button1Click(self);
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button1Click(self);
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Button1Click(self);
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Button1Click(self);
end;

procedure TForm1.Button1StartDock(Sender: TObject;
  var DragObject: TDragDockObject);
begin
Button1Click(self);
end;

procedure TForm1.Button1StartDrag(Sender: TObject;
  var DragObject: TDragObject);
begin
Button1Click(self);
end;

П.С. так лучше не делать.

[Аватар]

Dvoishnik

Гениально

[zvygin1964]

Сообщение от Аватар

Dvoishnik

А как ?

[min@y™]

П.С. так лучше не делать.

Даёшь полотенце для TVirtualStringTree!!!!

[Аватар]

А как ?

Ни как. ТС не написал чего ему надо, а нам оставил возможность пофантазировать на вольную тему. Если часть кода в обработчиках событий повторяется, то пусть вынесет его в отдельную процедуру или функцию и обращается к ней. Если типы обработчиков совпадают, то теоретически несколько событий можно нацелить на одну процедуру, при этом в ней совершенно неясно будет какое событие произошло

[Sibedir]

Объявится ТС - кликните. Я пояльник приготовил. А то иш, партизан нашелся

[min@y™]

Я пояльник приготовил.

А я - свои вчерашние носки. Ждём прихода аффтара! Будем бить (возможно ногами).

risovach.ru.jpg