Hallo!
Ich habe ein (Haupt-)Panel, worauf BitButtons, ein SpineditFeld und 2 weitere Panels liegen.
Diesen ganzen Dinge möchte ich auf einmal verschieben
Ich kann aber bisher immer nur eins (zum Beispiel das Hauptpanel) verschieben.
Dazu benutzte ich den volgenden Code:
Code:
procedure TForm4.ToolPanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
ReleaseCapture;
Toolpanel.Perform(WM_SYSCOMMAND,$F012,0);
end;
end;
Wie kann ich aber nur durch Verschiebung des Hauptpanels alle anderen Dinge (siehe oben) auch mit verschieben? Sie sollten auch nach dem Verschieben auf ihrer Position auf dem Hauptpanel wieder so sein wie vorher.
Vielen Dank im Voraus!