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 ....
Sekian dulu tutorialnya semoga bermanfaat. dan silahkan dikembangkan sesuai kebutuhan anda.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.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
