Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Set Resolusi Monitor dengan Delphi #150

Kambing tidak dapat menyelam di dalam air

andrypein.net : Bisakah dibuat aplikasi Set Resolusi Monitor dengan Delphi? Bisa, klean bisa simak postingan aing ini.

Skrinsut aplikasinya bisa dilihat seperti ini lah :

set resolusi monitor dengan delphi
penampakan form

Pertama-tama kita harus membuat sebuah procedure nya dulu gan, pricedure ini bertujuan untuk eksekusi set resolusi monitornya.

Berikut adalah procedure nya :

procedure SetResolusi(XRes, YRes :Dword);
var
  lpDevMode : TdeviceMode;
begin
  EnumDisplaySettings(nil, 0, lpDevMode);
  lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
  lpDevMode.dmPelsWidth:=XRes;
  lpDevMode.dmPelsHeight:=YRes;
  ChangeDisplaySettings(lpDevMode,0);
end;

Untuk bahan form cukup satu buah tombol, satu buah combobox untuk daftar resolusi monitor, dan dua buah edittext, rancang bentuk form nya mah bebas we lah.

Kemudian pada event form OnCreate, tambahkan kode ini, ini bermaksud untuk menambahkan list pada combobox.

combobox
procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  combobox1.Clear;
  combobox1.Items.Add('600 x 800');
  combobox1.Items.Add('1024 x 768');
  combobox1.Items.Add('1152 x 854');
  combobox1.Items.Add('1280 x 720');
  combobox1.Items.Add('1280 x 768');
  combobox1.Items.Add('1280 x 800');
  combobox1.Items.Add('1280 x 960');
  combobox1.Items.Add('1280 x 1024');
end;

Lalu pada combobox OnChange tambahkan kode ini :

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case combobox1.ItemIndex of
    0:
      begin
        edit1.Text:='800';
        edit2.Text:='600';
      end;
    1 :
      begin
        edit1.Text:='1024';
        edit2.Text:='768';
      end;
    2 :
      begin
        edit1.Text:='1152';
        edit2.Text:='854';
      end;
    3 :
      begin
        edit1.Text:='1280';
        edit2.Text:='720';
      end;
    4 :
      begin
        edit1.Text:='1280';
        edit2.Text:='768';
      end;
    5 :
      begin
        edit1.Text:='1280';
        edit2.Text:='800';
      end;
    6 :
      begin
        edit1.Text:='1280';
        edit2.Text:='960';
      end;
    7 :
      begin
        edit1.Text:='1280';
        edit2.Text:='1024';
      end;
  end;
end;

Terakhir pda tombol klik beri kode untuk eksekusi :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.Text='') and (edit2.Text='') then
    showmessage('pilih dulu gan')
  else
    SetResolusi(StrToInt(edit1.Text),StrToInt(edit2.Text));
end;
Done, dan program kecil2an untuk menge set resolusi monitor dengan delphi pun selesai.

Projeknya bisa di donlod gan disini gan.

Download

*AFK

Related Articles

4 Comments

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

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button