5,388
社区成员
发帖
与我相关
我的任务
分享
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;