Topic: Двойной клик по динамическому объекту
как перехватить двойной клик по динамическому объекту?
My Visual Database → Russian → Двойной клик по динамическому объекту
как перехватить двойной клик по динамическому объекту?
по какому конкретно объекту?
sM:TWindowsMediaPlayer;
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
sM:=TWindowsMediaPlayer.create(form1.Panel1);
With sM do
begin
TabOrder:= 1;
Align:= alclient;
Parent:= Form1.Panel1;
Visible:= true;
end;
sM.uiMode:= 'none';
end;
Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/abazohrbdt3p9 … a.zip?dl=0
WMP:= TWindowsMediaPlayer.Create(Form1);
WMP.OnClick := @WMOnClick;
WMP.OnDoubleClick := @WMOnDoubleClick;
procedure WMOnClick (Sender: TObject; nButton: Integer; nShiftState: Integer; fX: Integer; fY: Integer);
begin
if nButton = 1179649 then ShowMessage('Left click');
if nButton = 1179650 then ShowMessage('Right click');
if nButton = 1179652 then ShowMessage('Middle click');
end;
procedure WMOnDoubleClick (Sender: TObject; nButton: Integer; nShiftState: Integer; fX: Integer; fY: Integer);
begin
if nButton = 1179649 then ShowMessage('Left double click');
if nButton = 1179652 then ShowMessage('Middle double click');
end;
My Visual Database → Russian → Двойной клик по динамическому объекту
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi