Events OnCreate, Onshow, Onclose dan Ondestroy

Dalam pembuatan program di delphi dikenal adanya beberapa event atau kejadian. pada even ini kita bisa membuat sebuah perintah, misalnya pertanyaan pada user, pengecekan form, perangkat, database dan sebagainya sehingga program berjalan sesuai yang diinginkan. Selain itu juga bisa dimanfaatkan untuk validasi. sebagai contoh pada saat form mau ditutup kita berikan pertanyaan apakah form akan ditutup padahal ada inputan yang berum terselesaikan.

beberapa event penting : 

• OnCreate adalah event yang pertama kali dijalankan oleh sebuah program, event ini hanya berlangsung sekali.
• OnShow adalah event saat form dibuka atau pada saat dipanggil oleh perintah show. event ini bisa beberapa kali dijalankan, tergantung berapa kali form tersebut dibuka
• OnClose : event ini merupakan lawan dari  event OnShow. Onclose akan dijalankan pada saat form ditutup
• OnDestroy adalah event yang terakhir kali dijalankan yaitu pada saat aplikasi ditutup atau dibuang dari memory komputer.

Untuk mencoba penjelasan ini kita bisa memulai dengan membuat program baru

• File --> New --> Application
• Klik pada form
• Tekan tombol F11 untuk   menapilkan jendela event
• berikan perintah showmessage pada event yang kita bahas di atas

Lebih jelasnya kita lihat listing berikut ini :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('oncreate atau form dibuat');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
showmessage('onshow atau form dibuka');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('onclose atau form ditutup');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
showmessage('ondestroy atau form dibuang dari memory');
end;

end.

jalankan program kemudian tutup program. perhatikan tampilan pesannya

Posted in: DelPhi