CARA LOCK FORM DI DELPHI AGAR TIDAK DAPAT DIGESER

Salam blogger.....pada postingan kali ini saya akan share cara membuat form di delphi agar tidak dapat digeser dari posisi yang kita inginkan. terkadang dalam membuat sebuah project didelphi kita menginginkan agar form yang kita buat di project delphi tidak dapat di pindah atau pun digeser dari posisi semula. berikut ini saya akan memberikan sebuah trik sederhana agar form yang kita buat tidak dapat di geser / dipindah, dtidak dapat di maximize dan minimize.

Adapun langkah - langkah nya adalah sebagai berikut ;
1. buka aplikasi delphi anda
2. buatlah sebuah project di delphi anda
3. selanjutnya pada object inspector ubah left = 250 , top = 250 
4. lalu pada BorderIcons, ubah BisystemMenu, BiMinimize, BiMaximize menjadi false. sehingga hasilnya seperti pada gambar di bawah ini.
Lalu selanjutnya, klik 2x pada form1 untuk menambahkan coding program berikut ini :

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  // tambahkan script dari sini //
protected
procedure OnPosChange(var Msg: TWmWindowPosChanging);
message WM_WINDOWPOSCHANGING;
  // sampai sini //
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// tambahkan script dari sini //
procedure TForm1.OnPosChange (var Msg: TWmWindowPosChanging);
begin
Msg.WindowPos.x := Left;
Msg.WindowPos.y := Top;
Msg.Result := 0;
end;
// sampai sini //
end.

lalu selanjutnya ketikan script coding program yang berwarna hitam diatas , tempatkan coding tersebut sesuai seperti contoh script di atas, untuk lebih jelas dapat dilihat pada contoh gambar dibawah ini.
Jika script coding program diatas sudah ditambahkan, sekarang coba jalankan program project anda dengan menekan F9 / RUN , selanjutnya lihat hasilnya, jika form yang anda buat sudah tidak dapat digeser / dipindah lagi, berarti project yang anda buat berhasil.

Demikian postingan yang dapat saya share kali ini, semoga dapat bermanfaat dan selamat mencoba. 

Post a Comment

3 Comments

  1. Terima kasih, sangat membantu

    ReplyDelete
  2. trima kasih sudah membantu
    tapi sayangnya pengaturan posisi form waktu d jalankan tidah bisa pas di tengah2 desktop

    ReplyDelete
    Replies
    1. tinggal atur aj angka left dan top nya dengan posisi penempatan yang di inginkan

      Delete

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi