const
Orignwidth = 800;
Orignheight = 600;
procedure TForm1.FormCreate(Sender: TObject);//自适应
begin
scaled := true;
if (screen.width <> orignwidth) then
begin
height := longint(height) * longint(screen.height) div orignheight;
width := longint(width) * longint(screen.width) div orignwidth;
scaleby(screen.width, orignwidth);
end;
end;
procedure TForm1.btn1Click(Sender: TObject);//设置
var
devmode: tDevicemode;
begin
if screen.width <> orignwidth then
begin
if EnumDisplaySettings(nil, 0, devmode) then
begin
devmode.dmfields := dm_pelswidth or dm_pelsheight;
devmode.dmpelswidth := orignwidth; {宽度}
devmode.dmpelsheight := orignheight; {高度}
ChangeDisplaySettings(devmode, 0); {更改设置}
end;
end;
end;
setDisPlay
最新推荐文章于 2024-05-06 13:28:41 发布