Cara Buat Event pada saat Frame Muncul

Bismillah,
Kali ini saya akan share bagaimana caranya buat event ketika frame muncul atau oncreate di delphi.
Disini saya menggunakan delphi XE 3.
Langkah yang harus anda lakukan setelah membuat frame adalah :
1. Menambahkan syntax di public, berikut ini syntaxnya,
____________________________________________
constructor Create(AOwner: TComponent) ; override;
_____________________________________________
2. Kemudian pada di bagian type, klik pada baris nama frame anda,
3. tekan ctrl  + shift + c,
4. maka anda akan masuk ke event saat frame muncul....
5. selesai
Berikut ini listing syntaxnya,
_______________________________________________________________________
interface

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

 type
   TWebNavigatorFrame = class(TFrame)
     urlEdit: TEdit;
   private
     fURL: string;
     procedure SetURL(const Value: string) ;
   public
     constructor Create(AOwner: TComponent) ; override;
   published
     property URL : string read fURL write SetURL;
   end;

 implementation
 {$R *.dfm}

 constructor TWebNavigatorFrame.Create(AOwner: TComponent) ;
 begin
   inherited Create(AOwner) ;

   //"OnCreate" code
   URL := 'http://delphi.about.com';
 end;

 procedure TWebNavigatorFrame.SetURL(const Value: string) ;
 begin
   fURL := Value;
   urlEdit.Text := Value;
 end;

 end.
____________________________________________________________________
Sumber : http://delphi.about.com/od/delphitips2007/qt/tframe_oncreate.htm

Happe Code.
Semoga Bermanfaat.
http://pangeran-it.blogspot.com/