• From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: Двойной клик по динамическому объекту

как перехватить двойной клик по динамическому объекту?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Двойной клик по динамическому объекту

по какому конкретно объекту?

Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Двойной клик по динамическому объекту

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;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Двойной клик по динамическому объекту

Скачайте пожалуйста последнюю бета версию
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;
Dmitry.