Jak wysrodkowac komponent w komponencie

Sheitar

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 komentarzy

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

luzik szejtku :))