Komponenten während der Laufzeit verschieben

[Progman]

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

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;

[tofse]

Achso...da hat das auch funktioniert, aber wie beschrieben ist die "Performance" da nicht gerade optimal.
Von daher würde ich gerne schon das hier verwenden...

Code:

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);

...muss aber halt unbedingt während dem mousemove ein paar Berechnungen vornehmen. Bis jetzt habe ich es nicht hinbekommen.
Habe inzwischen den Code in onmousedown gesteckt, aber während dem Ziehen wird mousemove leider noch immer nicht aufgerufen.

Christof

[Progman]

Ja, weil dieses

Delphi-Quellcode:

ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);

die Wirkungsweise dieser Proceduren unterbricht.
Ich arbeite auch grad an einem Programm, dass diese Routinen nutzt. Allerdings verschiebe ich TImages. Und ich habe kein Hängenbleiben oder irgendwelche Verzögerungen beim Schieben.
Vielleicht ist dein System einfach nur zu träge für sowas?

[tofse]

Hm, und da gibt es keine Möglichkeit?
Wie gesagt, mit der 2. Variante habe ich beim Ziehen keinerlei Probleme, von daher hat es wohl nichts mit Trägheit zu tun.

Und "hängenbleiben" ist auch vielleicht das falsche Wort, da ruckelt nichts etc. Es ist nur so, dass das Panel manchmal an der Stelle bleibt, wenn ich den Mauszeiger bei gedrückter Taste sehr schnell bewege. Dann ist der Zeiger plötzlich außerhalb vom Panel und sobald ich den Zeiger wieder über das Panel ziehe, kann ich das Panel weiter bewegen. Das ist einfach nicht schön

Du kannst das bei deinem Programm nicht nachvollziehen?

Christof

[SirThornberry]

@DeddyH: Das ganze würde im MouseDown aber bedeutend mehr Sinn machen oder übersehe ich irgendwas?

[tofse]

Zitat von SirThornberry:

@DeddyH: Das ganze würde im MouseDown aber bedeutend mehr Sinn machen oder übersehe ich irgendwas?

Hatte ich schon, aber mousemove wird danach leider nicht mehr aufgerufen

[DeddyH]

Ich hatte das seinerzeit einmal ins MouseMove verschoben, nur fällt mir gerade der Grund nicht mehr ein.

[tofse]

Hallo,
erst mal Danke für die Anregungen.
Da ich unbedingt das mousemove benötige, um beim Verschieben des Panels die Koordinaten zu berechnen (wegen Scrollen in einer Scrollbox), bin ich wieder zum ursprünglichen Code zurück, auch wenn ich wegen der beschriebenen Probleme nicht glücklich bin.

Ich habe nun versucht, irgendwie zu tricksen, dass der Mauszeiger auch bei schnellen Bewegungen das Panel nicht verlassen kann. Hierzu wollte ich mouseleave einsetzen. Aber in der beschriebenen Situation wird die Prozedur nicht aufgerufen. Wieso ?

Als zweiten Versuch wollte ich im mousemove die übergebenen X,Y Koordinaten mit der Breite bzw. Höhe des Panels abgleichen, d.h. wenn die = sind, darauf reagieren. Das hat auch nicht funktioniert. Daraufhin habe ich mir während dem Ziehen X und Y im Panel ausgeben lassen (bei mousemove), da habe ich dann gesehen, dass diese sich nach dem ersten mousedown nicht mehr verändern.....


Hat jemand noch einen Tipp, wie ich da vorgehen könnte ?

Vielen vielen Dank
Christof