怎么还让所做的界面在不同分辨率下都是一样的。
比如在form 中有一个panel,在800*600下占满了窗口,但是把分辩率改了以后,就占不满窗口了!
procedure TMyClass.FormCreate(form: Tform);
var
x, y: LongInt;
begin
form.scaled := true; //Óдí
x := getSystemMetrics(SM_CXSCREEN);
y := getSystemMetrics(SM_CYSCREEN);
if (x <> ScreenHeight) or (y <> ScreenWidth) then
begin
form.height:=form.height*x DIV ScreenHeight; //Óдí
form.width:=form.width*y DIV ScreenWidth; //Óдí
form.ScaleBy(x,ScreenHeight);
end;
end;