Sunday, 6 March 2016T3/06/2016 08:38:00 pm

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. 

Previous
Next Post »
1 Komentar untuk "CARA LOCK FORM DI DELPHI AGAR TIDAK DAPAT DIGESER"

Terima kasih, sangat membantu

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

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status