Hallo zusammen,
ich verwende dieses schöne Skript, um TPanel Komponenten innerhalb einer ScrollBox zu verschieben:
Komponenten während der Laufzeit verschieben

Es gibt bei mir nur einen Schönheitsfehler: wenn man den Mauszeiger bei gedrückter Maustaste sehr schnell bewegt, kann es sein, dass (wie soll ich sagen..) das TPanel nicht mehr "nach kommt". Es bleibt stehen, aber

markieren

Code:

TMoveCracker(Sender).MouseCapture

aus dem Skript ist noch immer true. Bewege ich dann den Mauszeiger wieder über das TPanel, kann ich dieses weiter bewegen (auch wenn ich die Maustaste vorher sogar loslasse).

Hat jemand einen Tipp, wie ich das TPanel dazubekomme, auch die schnellen Mausbewegungen mitzumachen ?

Danke
Christof

Geht es um alle Panels auf dem Formular?

[edit] Falls ja, versuch es mal hiermit:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TPanel = class(ExtCtrls.TPanel)
  protected
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  end;
 
  TDeinForm = class(TForm)
    ...
  end;

...

procedure TPanel.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if ssLeft in Shift then
    begin
      ReleaseCapture;
      Perform(WM_SYSCOMMAND, $F012, 0);
    end;
end;

Das geht auch mit anderen Komponenten, solange sie von TWinControl abstammen. [/edit]

Danke, das funktioniert super
Nur...wie kann ich jetzt feststellen, wann das Ziehen der Komponente beendet ist?
Vermutlich wegen dem ReleaseCapture wird die Procedure MouseUp nicht mehr aufgerufen.

Edit: Noch eine 2. Frage: wie kann ich während dem Ziehen des TPanel's auf irgendwas reagieren? Z.B. will ich prüfen, ob das TPanel über einen Punkt bewegt wird. In dem anderen Beispiel hatte ich das alles in der Procedure mousemove. Der Code nach dem Perform wird erst ausgeführt, wenn ich das Element nicht mehr bewege....was irgendwie meine erste Frage beantwortet

Grüße
Christof

Zitat von tofse:

Edit: Noch eine 2. Frage: wie kann ich während dem Ziehen des TPanel's auf irgendwas reagieren? Z.B. will ich prüfen, ob das TPanel über einen Punkt bewegt wird. In dem anderen Beispiel hatte ich das alles in der Procedure mousemove. Der Code nach dem Perform wird erst ausgeführt, wenn ich das Element nicht mehr bewege....was irgendwie meine erste Frage beantwortet

Grüße
Christof

In ControlMouseMove sollte man solche Prüfungen durchführen.

Hallo,
also ich habe folgenden gekürzten Code:

In einer Unit:

markieren

Code:

....
type
  TTermin = Class(TPanel)
....

Dann im Formular:

markieren

Code:

...
T:=TTermin.Create(Form1);
T.OnMouseMove:=Form1.ControlMouseMove;
...

Und diese Prozedur:

markieren

Code:

procedure TForm1.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift then
  begin
    (Sender as TTermin).Dragging:=true;
    ReleaseCapture;
    (Sender as TControl).Perform(WM_SYSCOMMAND, $F012, 0);
    (Sender as TTermin).color:=clGreen;
  end;
end;

Die letzte Zeile mit der Farbzuweisung ist nur zum Testen und soll mein Verständnisproblem zeigen. Erst wenn ich mit dem Ziehen des Elements fertig bin, wird die Farbe grün zugewiesen. Ich verstehe das so, als ob der Code nach Perform auch erst nach dem Ziehen ausgeführt wird.

Du hast geschrieben:

Zitat:

In ControlMouseMove sollte man solche Prüfungen durchführen.

Ich verstehe nicht, wie ich das machen soll, wenn wie hier im Beispiel grün auch erst nach dem Verschieben zugewiesen wird, und nicht während dem Ziehen.

Danke und Grüße
Christof

Meine Anmerkung bezog sich auf den Original-Code aus dem Link:

markieren

Delphi-Quellcode:

procedure TForm1.ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if FDragging then
    with Sender as TControl do
    begin
      Left := X - FDownX + Left;
      Top := Y - FDownY + Top;
      //in etwa: if (Left=20 and Top>20) then.....
    end;
end;