Delphi for delphier

Form – Membuat form tidak bisa dipindahkan

Tingkatan Pemula
   
Kategori Dasar
   
Sub Kategori Form
   
Judul Membuat form tidak bisa dipindahkan
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi by Eko Indriyawan
  http://www.delphifaq.com/faq/delphi/windows_GUI/f473.shtml
   
Tujuan
Mengajarkan kepada para delphier pemula untuk membuat form supaya tidak bisa dipindahkan.
  spasi
Overview
Pembahasan pada tutorial kali ini akan mempelajari tentang bagaimana sebuah form itu supaya posisinya tidak bisa digeser-geser atau dipindahkan.
Artikel ini sangatlah menarik untuk dicoba, sebab tips kali ini bisa sangat bermanfaat untuk selalu menunjukkan sebuah informasi agar tidak digeser-geser dari posisinya..
Saran saya, jangan sembarangan menggunakan tips ini, karena bisa jadi tips ini bisa membuat orang merasa tidak nyaman.
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
  spasi
Langkah 1
   
Langkah 2
Silahkan anda tambahkan beberapa object kedalam Form1.
   
  Button1: TButton;
  spasi
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 
pemulaform00000001.png
   
Langkah 5
Silahkan anda deklarasikan prosedur pada bagian protected. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.
   
 
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
protected
procedure OnPosChange(var Msg: TWmWindowPosChanging);
message WM_WINDOWPOSCHANGING;
private
{ Private declarations }
   
Langkah 8
Tuliskan kode program didalam prosedur yang anda deklarasikan tersebut. Untuk detailnya, silahkan anda lihat potongan kode program dibawah ini.
   
 
procedure TForm1.OnPosChange (var Msg: TWmWindowPosChanging);
begin
Msg.WindowPos.x := Left;
Msg.WindowPos.y := Top;
Msg.Result := 0;
end;
   
Langkah 9
Silahkan anda compile. Tekan tombol Ctrl + F9. Tunggu beberapa saat… ( Sedang di cek kode programnya ).
 
 
Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.
   
 

pemulaform00000002.png

   
Langkah 10
Silahkan anda coba untuk menggeser-geser form-nya.
   

Langkah 11

Jika program berhasil, maka form tersebut tidak bisa digeser-geser.
   
Langkah 12
Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.
  spasi
Download
Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.
Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.
Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.
Atas perhatiannya, saya mengucapkan banyak terimakasih.
  spasi
Link terkait
 
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM

Blog di WordPress.com.

%d blogger menyukai ini: