Restore Resolusi Monitor Delphi #161

andrypein.net : berawal dari sebuah komen seorang dude pembaca blog jelek dari post set resolusi monitor ini yang begini.

mantap gan, bisa kasi tau caranya bikin 1 button untuk mengembalikan resolusinya jadi normal atau sesuai dengan kondisi awal ga gan ??

Sekali lagi tengkiyu gan telah mengingatkan maka dari itu post sayah langsung sayah apdet saja.

Karena aing lupa kenapa di post kemarin tidak ada button untuk restore resolusinya.

Dan yang ini alhasil versi apdetan aplikasi dari yang kemarin.

Pertama-tama saya tambahkan variabel baru untuk melakukannya

var
  Form1: TForm1;
  DefX,DefY : integer;

simpan dulu nilai variabel resolusi monitor awal pada event FormShow

procedure TForm1.FormShow(Sender: TObject);
begin
  DefX:=screen.Width;
  DefY:=screen.Height;
  Bitbtn1.Enabled:=false;
end;

lalu pada button restore nya

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  setresolusi(DefX,DefY);
  button1.Enabled:=true;
  bitbtn1.Enabled:=false;
end;

Done bruh aing aplod projek Restore Resolusi Monitor Delphi nya silahkan di unduh dan semoga bermanfaat.

Download

*AFK