Jumat, 27 September 2013

Membuat Form Layar Penuh (Delphi 7)


Langkah-langkah :
1. Pada events OnShow isi kode sperti di bawah ini 
    procedure TForm1.FormShow(Sender: TObject);
    var r :TRect; 
      begin
        SystemParametersInfo (SPI_GETWORKAREA, 0, @r,0); 
        Form1.SetBounds(r.left, r.top, r.Right -r.left, r.bottom - r.top);
      end;

Selesaii :)

Sialahkan dicoba.
 
Copyright © . DodySoft - Posts · Comments
Theme Template by BTDesigner · Powered by Blogger