отловить нажатие на созданный компонент....

← →
Андрей_Р (2003-12-19 14:14) [0]

в процессе работы программы создается массив компонентов, можно ли отловить и обработать момент нажатия кнопки мыши на компоненте...и как это реализовать???

← →
Юрий Зотов © (2003-12-19 14:17) [1]

Кто мешает программно, сразу после создания, назначить им всем один и тот же обработчик события OnMouseDown?

← →
Rem © (2003-12-19 14:20) [2]

procedure <...>.OnComponentMouseDown(Sender: TObject; ...); begin ShowMessage("Нажата кнопка мыши на компоненте " + TMyComponent(Sender).Name); end; ..... MyComponent := TMyComponent.Create(<...>); MyComponent.Name := "Comonent1"; MyComponent.OnMouseDown := <...>.OnComponentMouseDown;

← →
Rem © (2003-12-19 14:22) [3]

йо!...
MyComponent.Name := "Com ponent1";
P.S. А то ж работать не будет!!! :-D

← →
Юрий Зотов © (2003-12-19 14:26) [4]

> Rem © (19.12.03 14:22) [3]

Работать будет и без всяких Name, так что эта строка просто лишняя. Наоборот, если назначать всем одно и то же имя, то работать как раз не будет - свалится уже на втором.

← →
Андрей_Р (2003-12-19 14:28) [5]

огромное спасибо!!!!!

← →
Rem © (2003-12-19 14:49) [6]

2 Юрий Зотов ©
см. смайл :-D

← →
Sl@sh (2003-12-19 15:02) [7]

а как правилно объявить процедуру
procedure <...>.OnComponentMouseDown(Sender: TObject; ...);
и где??? подскажите плз...

Все, кто этого еще не знает - идут и читают тут

http://www.delphikingdom.com/helloworld/runtime_comp.htm

йо...
ну, например, в форме:

interface type TForm1 = class(TForm) ... private procedure OnComponentMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); ... end; .... implementation .... procedure TForm1.OnComponentMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ... end;

отловить нажатие на созданный компонент.... Найти похожие ветки