Hab's jetzt mit FormActivate und FormShow probiert aber es ändert nix...
Hier mal mehr Code
Code:
procedure TMain.FormShow(Sender: TObject);
var x,y:integer;
vf,vs,v:real;
s:string;
begin
vs:= Screen.width / screen.height;
vf:=main.Width / main.Height;
x:=round((main.Width / vf)*vs);
v:= ((main.Width / vf)*vs) / main.Width;
main.Width:=x;
x:= round(panel1.Width*1.2);
panel1.Width:=x;
...
was ich erreichen will damit:
Ich hab später 4 Panels, die aber an das Bildschirmformat (4/3 oder 16/10) angepasst werden sollen...
Vieleicht ist es auch einfacher 'ClientWidth div 4' ?
Hab mich nur gewundert...
Danke Trozdem