if (Screen.Width = 800) and (Screen.Height = 600) then ....
procedure TFdm.Displaynew(var vform:TForm); var screen_w,screen_h:integer; begin screen_w:=screen.Width; screen_h:=screen.Height; if (screen_w=800) and (screen_h=600) then vform.windowstate:=wsMaximized else (screen_w=1024) and (screen_h=768) then vform.windowstate:=wsNomal; end; 你看我写的对么?
....
var
screen_w,screen_h:integer;
begin
screen_w:=screen.Width;
screen_h:=screen.Height;
if (screen_w=800) and (screen_h=600) then
vform.windowstate:=wsMaximized
else (screen_w=1024) and (screen_h=768) then
vform.windowstate:=wsNomal;
end;
你看我写的对么?