Hallo,
Es liegen auf einem großen Panel 20 andere schmale Panel, alle mit der Eigenschaft Align := alTop
Mit :
Delphi-Quellcode:
procedure TFrmMain.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if Sender is TPanel then
if ssLeft in Shift then
begin
ReleaseCapture;
(Sender as TPanel).Perform(WM_SYSCOMMAND,$F012,0);
end;
end;
kann ich diese Panels beliebig verschieben.
Jedoch bei ablegen bleiben Sie ganz einfach an diese Stelle liegen
wo ich meine Maus loslasse, statt sich brav einzuordnen (wg. alTop).
Wie schaffe ich das, dass ich ein Panel bei ablegen nahtlos zwischen zwei anderen Panel einordnet?
Ich habe zuerst gedacht, das wg. Align := alTop wird das ohne weiteres gelingen, - funktioniert aber nicht.
Für jede Hilfe wäre ich dankbar
Gruß
Muchacho