Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Внизотловить нажатие на созданный компонент.... Найти похожие ветки
← →
Андрей_Р (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 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c