ændre opløsning

Vil du ændre skærmopløsningen under runtime?

Prøv med denne kode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
  procedure WMDisplayChange(var Message:TMessage);
      message WM_DISPLAYCHANGE;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
i      : Integer;
DevMode : TDevMode;
begin
i:=0;
while EnumDisplaySettings(nil,i,DevMode) do begin
  with Devmode do
    ListBox1.Items.Add
    (Format('%dx%d %d Colors',
    [dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));
  Inc(i);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  DevMode    : TDeviceMode;
  liRetValue : Longint;
begin
if EnumDisplaySettings
    (nil,Listbox1.ItemIndex,Devmode) then
  liRetValue := ChangeDisplaySettings(DevMode, 0);
end;

procedure
  TForm1.WMDisplayChange(var Message: TMessage);
begin
  ShowMessage('Changes in display detected!');
  inherited;
end;

end.

Ellers her: http://www.swissdelphicenter.ch/torry/showcode.php?id=158