Drag and Drop von Komponenten und Doublebuffered

[peterbelow]

Zitat von skoschke:

Ich habe scheinbar so viele Zeichenroutinen die dam System nicht mehr Zeit lassen, neuzuzeichnen

Ich bin nun auf folgendes gestoßen:

Delphi-Quellcode:

  procedure TForm1.ControlMouseMove(Sender: TObject; Shift: TShiftState;
    X, Y: Integer);
  begin
    screen.Cursor := crSizeAll;
    if ssLeft in Shift then
    begin
      ReleaseCapture;
      (Sender as TPanel).Perform(WM_SYSCOMMAND, $F012, 0);
  end;

damit funktioniert das Schieben eines Panels problemlos ohne jegliche Flackerei, der Haken dabei: ich bekomme es nicht hin, mehrere Panels (die als selektiert markiert sind) gleich zusammen zu verschieben.

Gibt es dafür einen Trick?

Ciao
Stefan

Nein, nicht mit dieser Methode, die funktioniert nur für ein einziges Control zur Zeit, da sie die eingebaute Windows-Funktion zum Verschieben eines Fenster per Drag auf die Titelzeile mißbraucht.