delphi - How does one get OnActivate event handlers such as OnEnter/OnExit to fire when an already created dynamic component is activated? -
i coding school project. apologize in advance possibly noob question.
i need make system fictional ngo, , need have users register , login whenever use program.
i use editboxes , maskedits receive login data. login screen has 2 editboxes, 1 username , 1 password. registration screen same form, resized , 2 additional, dynamic editboxes: 1 confirming password , user's e-mail address.
now, made static editboxes contain default value: if user enters editbox, default value disappears. if user exits editbox without entering values, default value reappears. haven't managed dynamic editboxes same.
how 1 onactivate event handlers such onenter/onexit fire when created dynamic component activated?
if using relatively modern delphi version supports xp+ visual styles, tedit has texthint property looking for, without need use events @ all.
procedure tmyform.formcreate(sender: tobject); var edit: tedit; begin edit := tedit.create(self); edit.parent := ...; ... edit.texthint := 'default text here'; end; otherwise, if want use events, can instead:
procedure tmyform.formcreate(sender: tobject); var edit: tedit; begin edit := tedit.create(self); edit.parent := ...; ... edit.text := 'default text here'; edit.onenter := editenter; edit.onexit := editexit; end; procedure tmyform.editenter(sender: tobject); begin if tedit(sender).text = 'default text here' tedit(sender).text := ''; end; procedure tmyform.editexit(sender: tobject); begin if tedit(sender).text = '' tedit(sender).text := 'default text here'; end;
Comments
Post a Comment