Mengubah Resolusi Screen Dengan Delphi

Tutorial ini saya buat karena, dulu pas pertama belajar delphi dan buat program di komputer saya dengan ukuran komputer saya yang memang resolusinya 1336 x 768 dan menggunakan windows 7. Program saya sih kalo di komputer saya user interfacenya enak-enak aja dilihat tetapi ketika pindah komputer teman saya yang resolusinya lebih kecil user interface program saya jadi acak acakan gak karuan. Ada tombol yang gak keluar karena layar kurang besar.

Ada Beberapa cara untuk mengatasi masalah kendala seperti diatas, dengan cara formnya yang disesuain pada layarnya dan mengatur tata letak komponen-komponen anchor. Memang agak rumit ketika memakai yang ini, karena harus satu-satu komponen yang diatur.

Dengan cara mengubah mengubah resolusi screen di komputer, maka kesulitan seperti diatas bisa teratasi karena layar kita yang menyesuaian program kita. Jadi program kita gak usah di apa-apain cuma kita tentuin aja Form size pertama ketika pembuatan misalnya 800x600 atau ukuran paling enak dilihat menurut anda.

sekarang langsung saja kita mulai pengkodoeanya... daripada banyak cakap ni.. hehehe.

Buatlah aplikasi baru dengan delphi dan satu form kosong kemudian tambahkan 4 TButton lalu berikan  kode pada tiap Buttonya seperti dibawah ini ....

unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
typeTForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
function SetScreenResolution(Width, Height: integer): Longint;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
OldWidth, OldHeight: integer;
implementation
{$R *.DFM}

function TForm1.SetScreenResolution(Width, Height: integer): Longint;
var
resolusi: TDeviceMode;
begin
with resolusi do
begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(resolusi, CDS_UPDATEREGISTRY);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetScreenResolution(640, 480);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin

SetScreenResolution(OldWidth, OldHeight);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
SetScreenResolution(800, 600);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
SetScreenResolution(1024, 768);
end;
end.

Sekian dulu tutorialnya semoga bermanfaat. dan silahkan dikembangkan sesuai kebutuhan anda.