:: Mujie on the Net :: | Lazarus : Menampilkan ShowModal Form Ditengah Form Utama

ngeBlog?

Search

// you’re reading...

Pemograman

Lazarus : Menampilkan ShowModal Form Ditengah Form Utama

By mujie ⋅ October 14, 2009 ⋅ Post a comment

10. Untuk menampilkan Form2 agar berada ditengah-tengah Form1, kita perlu melakukan perhitungan dengan mengambil Form1 sebagai titik awal atau referensi. Form hanya mengenal posisi kiri dari layar (Left) atau Y axis dan posisi atas layar (Top) atau X axis. Tampaknya mulai membosankan bukan? Tapi, tunggu dulu, agar tidak bingung perhatikan ilustrasi dibawah ini.

Dari sana kita akan berusaha mendapatkan posisi Form2 Left dan Form2 Top, dengan perhitungan sebagai berikut :

Left := Form1.Left + (Form1.Width div 2 - Form2.Width div 2);
Top := Form1.Top + (Form1.Top div 2 - Form2.Top div 2);

Div adalah fasilitas pembagi didalam Delphi dan Lazarus, singkatan dari divide (pembagi).

Lalu dimanakah kita akan meletakkan perhitungan tersebut? Kita akan meletakkan perhitungan tersebut di unit milik Form2 yang bernama Unit2 didalam “Events” OnShow. Kenapa tidak di OnCreate? Karena OnCreate hanya menjalankan rutin atau kode sekali saja ketika keseluruhan aplikasi tercipta (Form1 dan Form2).

Langkah-langkahnya adalah, karena disini kita akan menggunakan Form1 sebagai titik awal atau referensi, maka sangat diperlukan memanggil unit milik Form1 yang bernama Unit1. Seperti yang sudah-sudah, kita perlu meletakan Unit1 dibawah implementation di dalam Unit2.

Setelah itu dari Object Inspector milik Form2, klik tab Events, cari OnShow. Klik dua kali atau dobel klik pada OnShow, dan isikan kode diatas pada Source Editor pada Unit2, sehingga selengkapnya akan tertulis seperti dibawah ini.

unit Unit2; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs;
 
type
 
  { TForm2 }
 
  TForm2 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form2: TForm2; 
 
implementation
 
uses
  Unit1;
 
{ TForm2 }
 
procedure TForm2.FormShow(Sender: TObject);
begin
  Left := Form1.Left + (Form1.Width div 2 - Form2.Width div 2);
  Top := Form1.Top + (Form1.Height div 2 - Form2.Height div 2);
end;
 
initialization
  {$I unit2.lrs}
 
end.

11. Jalankan kembali aplikasi yang kita buat dengan menekan tombol F9 atau dari menu Run. Sehingga akan tampil seperti dibawah ini. Klik close atau tanda silang di kanan atas milik Form2, dan coba untuk menggesernya ke sisi layar yang lain dan klik Button1. Bagaimana ?

Seperti yang sudah saya sampaikan di awal artikel, dimana Anda bisa mendownload atau mengunduh kode sumber Lazarus project dari artikel ini, apalagi dengan TIDAK tersedianya kode sumber ini didalam buku atau artikel “Bagaimana menjadi kaya kalau tidak bekerja”, “Hasilkan dan raup dollar dari internet sambil bawa flashdisk kesana kemari”, “Menjadi kaya tanpa bekerja cukup hanya meminta” , “Hanya dengan modal sekian ratus atau puluh ribu Anda menjadi kaya impian”, “Dibayar dengan dollar sambil menguap” atau “Passive income tanpa batas sambil tidur-tidur” maka dengan ini saya menyediakannya untuk Anda semua.

Download :

form2_ditengah_form1.zip (163.24 KB)
form2_ditengah_form1.tar.gz (154.15 KB)

Untuk selengkapnya silahkan Anda kunjungi :

Bookmark : These icons link to social bookmarking sites where readers can share and discover new web pages.