Programowanie w języku Delphi » FAQ

Jak wysrodkowac komponent w komponencie

Jak wyśrodkować komponent w komponencie? np. Labela w Bevelu czy Buttona w Panelu... Użyj tej procedury

procedure Srodkuj(Co, WCzym: TControl);
begin
 Co.Left:=WCzym.Left+((WCzym.Width-Co.Width) div 2);
 Co.Top:=WCzym.Top+((WCzym.Height-Co.Height) div 2);
end;


a następnie wystarczy tylko

Srodkuj(Label1,Bevel1);

2 komentarze

Jensztejn 2005-07-06 11:27

fajnie jest, przyda sie :)
ale jak chcesz zrobić buttona na środku formy to program dzieli ekran na 2 a nie formularz na 2 ... ale jak sie ustawi pełny ekran (BorderStyle:=bsNone; WindowsState:=wsMaximized) , komponuje sie świetnie ... pozdro 4 all

lofix 2003-01-13 23:49

luzik szejtku :))