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ß