Drag&Drop-Problem

[Volker Z.]

Hallo,

merk Dir den Doppelklick in einer Property und werte das dann im OnMouseDown aus (die Events werden in der Reihenfolge OnDlbClick, OnMouseDown aufgerufen)

Delphi-Quellcode:

procedure TStartfenster.Online_portal_PanelMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
{ ************************************************** ********************************** }

begin
  if Button = mbLeft then
    if FDblClick then
      online_portal_panel.EndDrag (False);
    else
      online_portal_panel.BeginDrag (False);

  FDblClick := False
end;


procedure TStartfenster.Online_portal_PanelDblClick(Sender: TObject);
 { ************************************************** ********************************** }

begin
  FDblClick := True;
  VirtuelleSchule1.click;
end;

BTW: Quellcode solltest Du in DELPHI-Tags einschließen; einfach auf das Helmsymbol klicken und den Code dazwischen einfügen.

Gruß