在不同分辨率下,在一个窗体上,假设,有3个edit,他们横向排列 “- - -”在800*600下是这样:
|--------------------|
| |
| |
| - - - |
| |
| |
|--------------------|可是到1024*728下变成这样了
|--------------------|
| |
| - - - |
| |
| |
| |
|--------------------|怎样让他们无论分辨率怎么变,他们都按照他们与窗体之间的比例摆放?呵呵,不知道我说得清楚吗,呵呵,表达能力比较差~~~~保证结贴给分!
|--------------------|
| |
| |
| - - - |
| |
| |
|--------------------|可是到1024*728下变成这样了
|--------------------|
| |
| - - - |
| |
| |
| |
|--------------------|怎样让他们无论分辨率怎么变,他们都按照他们与窗体之间的比例摆放?呵呵,不知道我说得清楚吗,呵呵,表达能力比较差~~~~保证结贴给分!
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;procedure Tyhjfb.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;
窗体上Anchors这个属性对你很有帮助
特别是对窗体上的控件上下左右位置
你仔细琢磨看看