在其他机子上运行后,控件位置发生变动的问题,高手请指教!

[wintergoes]

我在自己机子上编写的程序,放到别人的机子上以后,窗体变的很粗糙了,而且控件的大小都变大了,位置也变了,这是怎么回事啊,如何解决呢?请高手指教!

[egg0817]

对方机器显示器的分辨率和你的不一样 就可能出现问题

我遇到过的,2种方法供参考

1.强行设置对方机器显示器的分辨率和你的一样
2.编写代码调整

[wintergoes]

能不能就第2种方法举个例子啊.谢谢大哥了

[wintergoes]

有人帮帮忙吗?

[hhzh426]

分辨率不会改变窗体中控件的位置，应该是其他机器上设置了不同大小的字体(比如使用了大字体)，就程序本身调整比较麻烦，还是运行时检测一下客户机的设置，然后提醒一下用户更改比较好！

[efeng0973]

假设你在800*600的分辨率下设计的form,第一步:
inplementation
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) div ScreenHeight;
width := longint(width) * longint(screen.width) div ScreenWidth;
scaleBy(screen.width, ScreenWidth);
end;
end;

下一步,要让每个子控制的字体改变到合适的大小:
type
TFooClass = class(TControl); { needed to get at protected }
{ font property }

var
i: integer;
begin
for i := ControlCount - 1 downto 0 do
TFooClass(Controls[i]).Font.Size :=
(NewFormWidth div OldFormWidth) *
TFooClass(Controls[i]).Font.Size;
end;

[efeng0973]

Windows提供给我们两个API函数,可以动态调整显示器的分辨率,他们是EnumDisplaySettings() 和ChangeDisplaySettings(),下面这个例子就是了
function DynamicResolution(X, Y: word): BOOL;
var
lpDevMode:
TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end;
end;
procedure TForm1.Button1Click(Sender: Tobject);
//在delphi5+windows2000上通过。
begin
if DynamicResolution(640, 480) then
ShowMessage('Now is 640*480');
end;
procedure TForm1.Button2Click(Sender: Tobject);
begin
if DynamicResolution(800, 600) then
ShowMessage('Now is 800*600');
end;