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

Как отследить двойной щелчок по TShape?   Найти похожие ветки 

← →
revo   (2004-02-16 14:36) [0]

Как отследить двойной щелчок по TShape?

---

← →
Radionov Alexey ©   (2004-02-16 14:53) [1]

Вот так получилось:

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssDouble in Shift then
ShowMessage("DoubleClick!");
end;


---

← →
ssk   (2004-02-16 15:02) [2]

а можно еще и так (типа наследник):

unit dmShape;

interface

uses
SysUtils, Classes, Controls, ExtCtrls;

type
TdmShape = class(TShape)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property OnDblClick;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Samples", [TdmShape]);
end;

end.
;-)

---

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

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



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