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