Draggen und klicken bei einem Objekt beides ermöglichen

[BenjaminH]

Hi,
ich hab hier ein Objekt, das

1. auf klicken reagieren soll
2. per Drag'n'Drop woanders hin gezogen werden können soll

sobald ich aber DragMode auf dmAutomatic habe, wird OnClick nicht mehr aufgerufen.
Gibts eine möglichkeit sowohl das Draggen, als auch das klicken zu ermöglichen?
Vielen Dank,
Benjamin

[omata]

Schaue dir mal Object.BeginDrag an.

[alzaimar]

Und dmManual.... Du musst also das dragging selbst programmieren, wie omata schon erwähnte, mit BeginDrag... EndDrag.

Ich würde auch eine Verzögerung beim Click einbauen, sodaß das dragging erst mit einer kleinen Verzögerung einsetzt. Dann kann man klicken, bevor die dragging-Logik greift.

[himitsu]

Ich würde das Draggen nicht Zeitverzögert auslösen, sondern von der Mausposition abhängig machen.

Im OnMouseDown die Klickposition speichern und wenn im OnMouseMove (wärend die Maustaste noch gedrückt ist) sich die Maus ein gewisses Stückchen bewegt hat, dann das Dragging starten.

[MacGuyver]

Moin auch

Wenn du im MouseDown mittels BeginDrag(False) startest, muss du erst die Maus ein Stück bewegen, bis der Dragmodus beginn.

Stefan

[BenjaminH]

Ja, das kommt der Sache schon sehr nahe.
Nur wird jetzt das klicken auch, wenn ich eigentlich nur draggen will ausgelöst.
Aber dagegen werde ich vorgehen indem ich entweder dann nur auf Doppelklick reagiere, oder statt OnClick OnMouseUp nehme.
Vielen Dank!

[BenjaminH]

Ich habs jetzt folgendermaßen probiert:
In OnMouseDown wird BeginDrag(false, DragThreshold) aufgerufen.
Statt des normalen OnClick habe ich dafür OnMouseUp reagiert, um entscheiden zu können, ob das Objekt gedraggt wurde, oder nicht.
if not TControl(Sender).Dragging then Jetzt habe ich folgendes Problem: BeginDrag ruft Perform(WM_LBUTTONUP, 0, Longint(PointToSmallPoint(P))); auf. Dadurch wird OnMouseUp aufgerufen, obwohl das nicht passiert, wodurch sich mein Objekt nicht so verhält wie ich es will.
Weiß jemand, wie ich es hinbekomme, dass bei OnMouseDown das Dragging beginnt und bei OnMouseUp der Klick ausgelöst wird - aber nur, wenn der Anwender nicht draggt

Vielen Dank,
Benjamin

[Hawkeye219]

Hallo Benjamin,

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

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

[BenjaminH]

Dann wird leider OnMouseUp nicht mehr aufgerufen.
Irgendwie ist das alles komisch. Z.b. im Windows Explorer ist das Verhalten, das ich will völlig normal.

[BenjaminH]

So - jetzt hab ichs.
Als erstes hab ich eine Variable eingeführt: HandledMouseClick. Sie enthält, wie der Name sagt, ob der Klick schon "ausgeführt" wurde.
Im OnMouseDown wird geprüft, ob das Item meiner Liste schon markiert ist, wenn nicht, dann wirds erstmal markiert.

Delphi-Quellcode:

if not (Sender as TVisualFile).Selected then
begin
  SelectItem(Sender);
  HandledMouseClick:=True;
end;

Im OnMouseMove wird geprüft, ob die Maus sich weiter als ein bestimmter wert bewegt hat. Wenn ja, dann wird HandledMouseClick auf True gesetzt und BeginDrag ausgeführt. Unabhängig davon, welchen Wert HandledMouseClick davor hatte.
Im OnMouseUp wird wenn HandledMouseClick false ist das Item angewählt.(Also nur, wenn es nicht schon im MouseDown angewählt wurde und kein Dragging stattfand).
Danach wird HandledMouseClick wieder auf false zurückgesetzt.

Verhält sich so, wie es sich richtig anfühlt.