mbleft bei Image wird bei dragmode=automatic nicht erkannnt?

[SimStar001]

Hallo,

ich habe auf meiner Form einige Images, mit denen ich Drag, Drop durchführen möchte.

Gleichzeitig möchte ich aber auch erkennen ob die linke maustaste gedrückt wurde oder nicht.

Solange ich den DragMode des Images nicht auf dmautomatic sezte wird die linke Maustaste auch erkannt, sobald dmautomatic aber gesetzt wird, wir die linke taste nicht mehr erkannt!


wieso das? und kann ich dies umgehen? Ich will ja erkennen ob die linke gedrückt wurde der nicht! Aber wie?

[SimStar001]

Hat keiner eine Idee für mein Problem?

[mirage228]

Vielleicht hilft Dir das ja?

Delphi-Quellcode:

var
  IsDown: Boolean;
begin
  IsDown := GetKeyState(VK_LBUTTON) < 0;
end;

Oder du setzt den DragMode auf Manual und beginnst das Draggen manuell über BeginDrag.

Viele Grüße

[littleDave]

Lass doch einfach den DragMode auf dmManual und schreib in das OnMouseDown-Event:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Dein Code, den du ausführen willst
  // z.B.:
  //    Memo1.Lines.Add('MouseDown');

  // Drag starten
  Image1.BeginDrag(True);
end;

[SimStar001]

Ok, vielen Dank ich werde es einmal ausprobieren mit dem dragmode manual, meld mich wieder falls es nicht klappt!