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.