contoh saja
TForm1 = class ...
bla..bla..
private
Edit1:TEdit;
procedure EditOnKeyPress(Sender:TObject);
bla..bla..bla...
somewhere in your unit:
Edit1:=TEdit.Create(Form1) ; // owner bisa form bisa application
Edit1.OnKeyPress:=EditOnKeyPress; // set event saat runtime
somewhere we have :
//ini implementasi dari apa yang terjadi saat Edit1 menerima ketukan
keyboard
procedure TForm1.EditOnKeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage('Anda menekan '+Key);
end;
that's all
edhinug
> -----Original Message-----
> From: Erwin Sunaryo [mailto:[EMAIL PROTECTED]
> Sent: 22 Oktober 2003 15:47
> To: [EMAIL PROTECTED]
> Subject: Re: [Delphindo] Event saat runtime
>
>
> Mas William,
>
> nggak bisa tuch, udah saya coba sama sekali nggak ada respon.
> Best Regards
>
> Erwin
> ========================
> VoIP No. : 628892528990703
> ----- Original Message -----
> From: "William IT" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, October 22, 2003 12:13 PM
> Subject: Re: [Delphindo] Event saat runtime
>
>
> > pake event OnEnter
> >
> > ----- Original Message -----
> > From: "Erwin Sunaryo" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Wednesday, October 22, 2003 12:07 PM
> > Subject: [Delphindo] Event saat runtime
> >
> >
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
