Delphi Draggen und klicken bei einem Objekt beides ermöglichen

Thema durchsuchen

Ansicht

Themen-Optionen

Draggen und klicken bei einem Objekt beides ermöglichen

Ein Thema von BenjaminH · begonnen am 23. Aug 2010 · letzter Beitrag vom 13. Sep 2010

Vorheriger Beitrag

Nächster Beitrag

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge

Delphi 2010 Professional

AW: Draggen und klicken bei einem Objekt beides ermöglichen

11. Sep 2010, 18:56

Hallo Benjamin,

vielleicht kannst du in der Behandlungsroutine für das Ereignis OnMouseMove den gewünschten Effekt erzwingen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDemoForm.Panel1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);

var

  C: TControl;

begin

  C := Sender as TControl;

  if (csLButtonDown in C.ControlState) then

    begin

      C.ControlState := C.ControlState - [csLButtonDown];

      C.BeginDrag (False);

    end;

end;

Gruß Hawkeye