Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
ВнизКак отследить двойной щелчок по 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c