Скачать: CL | DM;

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

← →
Андрей_Р   (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; ...);
и где??? подскажите плз...

---

← →
KSergey ©   (2003-12-19 15:03) [8]

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

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

---

← →
Rem ©   (2003-12-19 15:09) [9]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c