不同分辨率下按钮位置显示不正常

Question

我在800×600分辨率下设计
按钮的akLeft属性为false，akRight为True
运行没问题，窗口大小改变，按钮位置一直具右但是切换到1024×768后，运行时按钮的位置就不具右了
还是按800×600的位置显示请问这种情况怎么处理

Answer 1

试试把Form.Scale设为False。
实在不行的话，只有在启动时赋个位置了，或者为Button建个靠右的Panel

Answer 2

akRight为True，好像设置以后无论窗口怎么改变，按钮距窗口右边的距离不变！

Answer 3

当前窗体Scale属性设置为False就行了

Answer 4

一、根据新的分辨率自动重画表单及控件　　先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为 单位）。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表 单的SCALE过程重新能调整表单中控件的宽度和高度。Const
Orignwidth=800；
Orignheight=600；procedureTForm1.FormCreate(Sender：TObject)；
begin
scaled：=true；
if(screen.width<>orignwidth)then
begin
height：=longint(height)*longint
(screen.height)divorignheight；
width：=longint(width)*longint
(screen.width)divorignwidth；
scaleby(screen.width,orignwidth)；
end；
end；
 　　SCALE过程在调整控件宽度和高度的同时，也自动调整控件字体的大小，以适应新的分辨率， 但美中不足的是它并不改变控件的顶点坐标位置，也就是说，该过程不改变控件之间的相对 位置关系。要想调整控件之间的选队相对位置，还需要自己编程实现，有兴趣的读者可试一 试。

Answer 5

二、将机器分辨率更改为设计时的分辨率　　这种方法不改变表单本身，而是将屏幕分辨率更改为与表单设计时用到的分辨率相同。它需要用到WINDOWSAPI函数EnumDisplaySettings和ChangeDisplaySettings，前者取当前显示模式信息，后者则更改显示设置，具体参数的含义请参见DELPHI帮助。设计时宽度常量 和高度常量的定义如方法一。procedureTForm1.FormCreate(Sender：TObject)；
var
devmode：tDevicemode；
begin
ifscreen.width<>orignwidththen
begin
ifEnumDisplaySettings(nil,0,devmode)then
begin
devmode.dmfields：=dm_pelswidthORdm_pelsheight；
devmode.dmpelswidth：=orignwidth；{宽度}
devmode.dmpelsheight：=orignheight；{高度}
ChangeDisplaySettings(devmode,0)；{更改设置}
end；
end；
end； 

Answer 6

procedure Autoscale(var sender: Twincontrol; CURSCRHEIGHT, CURSCRWIDTH: cardinal);
begin
  sender.Height := (screen.Height div CURSCRHEIGHT) * sender.Height;
  sender.Width := (screen.Width div CURSCRWIDTH) * sender.Width;
  sender.Scaleby(screen.Height, CURSCRHEIGHT);
end;Autoscale(self,600,800);