Einzelnen Beitrag anzeigen

David Martens

Registriert seit: 29. Sep 2003
205 Beiträge
 
Delphi XE Enterprise
 
#4

AW: Panels untereinander anornden bei Resize

  Alt 18. Jun 2010, 16:31
jenachdem was du jetzt genau haben willst:

Situation: auf dem Motherpanel 2 Panel: pLeft und pRight

1.
pLeft : feste Größe
pRight: füllt den restlichen Teil des Motherpanels aus, hat eine Mindestgröße z.B. 100 und "verschwindet" bei unterschreiten hinter pLeft

Lösung:
pLeft.Align := alLeft;
pRight.Align := alRight;
und beim Motherpanel.OnResize
Delphi-Quellcode:
procedure TForm1.MotherpanelResize(Sender: TObject);
begin
  if (pRight.Width > 100) and (pRight.Left < pLeft.Width) then
    pRight.Width := 100;

  if pRight.Left > pLeft.Width then
    pRight.Width := Motherpanel.Width - pLeft.Width - 2;
end;
2.
pLeft : feste Größe
pRight: feste Größe und "verschwindet" bei unterschreiten hinter pLeft

Lösung:
pLeft.Align := alLeft;
pRight.Align := alRight;

P.S.: bei beiden Varianten muß pLeft "vor" pRight liegen d.h. entweder erst pRight anlegen und dann pLeft, oder Rechtclick auf pLeft und Element>"nach vorne setzen" auswählen.

Gruß David
  Mit Zitat antworten Zitat