Das ist so, dass das Bevel während der Laufzeit erstellt wird:
Bevel1 ist HauptBevel !!
Delphi-Quellcode:
NewBevel := TBevel.Create(OkBottomDlg);
with NewBevel do begin
Parent := OkBottomDlg;
Left := 13;
Top := 13;
Height := 16;
// Das hier soll das NewBevel 5 Pixel jeweils von links und rechts
// bringen
Width := Bevel1.Width - 10;
end;
Nun das TextFeld:
Delphi-Quellcode:
TextFeld := TLabel.Create(OkBottomDlg);
with TextFeld do begin
Parent := OkBottomDlg;
Caption := 'TEXTZEILE';
Top := 14;
// DAS SOLLTE DAS TEXTFELD IM BEVEL ZENTRIEREN
Left := (Bevel1.Width - 10) div 2 - length('TEXTZEILE')*6 div 2;
// Schlau wie ich bin, hab ich mal Courier genommen
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'Courier New';
Font.Style := [];
end;
Das mit AutoSize geht jetzt doch nich mehr, weil erst während Laufzeit erstellt wird ?!??!
devnull