Delphi中可视控件随窗口的缩放自动改变大小的方法

# 2002-12-04, 19:12 DelPhi中的全屏
请教各位大虾，如何在Delphi中设置全屏，例如按钮随窗口的缩放自动改变大小？
谢谢！

# 2002-12-04, 19:34  
：

这段代码自动获取分辨率，并设置为800×600：但偶感觉太麻烦，有简单的全屏方法吗？
望指教：


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);
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;


# 2002-12-05, 20:50
：


想button这种控件如果随窗体变化改变大小我想不太好看吧。我认为主要是那些大控件如ListBox、Panel、ListView等，随窗口大小改 变而适当改变是必要的，方法很简单，设置相应控件的anchors属性的值，就可以看到效果了。如果你一定要每个空间都随窗体改变而改变，需要拥到 ScaleBy方法。下面这个例子你运行一下就明白了
unit ScaleF;

interface

uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Spin, Mask, ComCtrls;

type
TForm1 = class(TForm)
ScaleButton: TButton;
RestoreButton: TButton;
Label1: TLabel;
Edit1: TEdit;
UpDown1: TUpDown;
procedure ScaleButtonClick(Sender: TObject);
procedure RestoreButtonClick(Sender: TObject);
private
{ Private declarations }
AmountScaled: Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ScaleButtonClick(Sender: TObject);
begin
AmountScaled := UpDown1.Position;
ScaleBy (AmountScaled, 100);
UpDown1.Height := Edit1.Height;
ScaleButton.Enabled := False;
RestoreButton.Enabled := True;
end;

procedure TForm1.RestoreButtonClick(Sender: TObject);
begin
ScaleBy (100, AmountScaled);
UpDown1.Height := Edit1.Height;
ScaleButton.Enabled := True;
RestoreButton.Enabled := False;
end;

end.

上传的图像

(9.4 KB, 56 次查看)

# 2002-12-07, 14:31
： 有道理，非常感谢！