可以这样做:(以下代码只是抛砖引玉,具体可以扩展)function setformpos(form:tform):boolean; begin case screen.Width of 640: begin // end; 800: begin form.Left :=0; form.Top :=0; result:=true; end; 1024: begin form.Left :=(screen.width -form.Width) div 2; form.Top :=(screen.Height -form.Height ) div 2; result:=true; end; end;end;.....procedure Tfrm_main.FormResize(Sender: TObject); begin image1.Height:=clientheight-statusbar1.Height; image1.Width :=clientwidth; image1.Left :=0; image1.Top :=0; end;
begin
case screen.Width of
640: begin
//
end;
800: begin
form.Left :=0;
form.Top :=0;
result:=true;
end;
1024: begin
form.Left :=(screen.width -form.Width) div 2;
form.Top :=(screen.Height -form.Height ) div 2;
result:=true;
end; end;end;.....procedure Tfrm_main.FormResize(Sender: TObject);
begin
image1.Height:=clientheight-statusbar1.Height;
image1.Width :=clientwidth;
image1.Left :=0;
image1.Top :=0;
end;