Um 3 Panels auszurichten wurde im Forum folgendes vorgeschlagen.
Auf dem Hauptpanel (pan_main) liegen 3 Panels (pan_1, pan_2, pan_3), die alle mit alTop ausgerichtet sind.
siehe auch
http://www.delphipraxis.net/internal...=panel+panmain
Prinzipiell so:
Delphi-Quellcode:
TForm1 = class(TForm)
pan_main: TPanel;
Pan_1: TPanel;
Pan_2: TPanel;
Pan_3: TPanel;
procedure PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private-Deklarationen }
FY: Integer;
public
{ Public-Deklarationen }
end;
Implementation
procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If ssLeft in Shift
Then Begin
If Y<>FY
Then begin
(Sender As TPanel).Top:=Y;
pan_main.Refresh;
FY:=Y;
End;
End;
end;
Die Methode PanelMouseMove den drei Panels als OnMouseMove zuweisen.
Funktioniert, ich suche jetzt einen Lösungsansatz um sowas zweispaltig zu realisieren.
d.h. zusätzlich noch 3 Panels (pan_4, pan_5, pan_5) daneben.