newsanti Posted March 23, 2013 Share Posted March 23, 2013 I am newbie for UniGui. I try to assign event with code on form show. I has some question? How to code..? TEventForm = class(TUniForm) UniButton1: TUniButton; procedure UniFormShow(Sender: TObject); private procedure Click_InfoMessage(Sender: TObject); protected public end; implementation uses uniGUIApplication; {$R *.dfm} { TEventForm } procedure TEventForm.Click_InfoMessage(Sender: TObject); begin ShowMessage('Hit Button', procedure(res: integer) begin end); end; procedure TEventForm.UniFormShow(Sender: TObject); begin inherited; UniButton1.OnClick:=Click_InfoMessage; end; Quote Link to comment Share on other sites More sharing options...
Ronak Posted March 25, 2013 Share Posted March 25, 2013 TEventForm = class(TUniForm) UniButton1: TUniButton; procedure UniFormShow(Sender: TObject); procedure Click_InfoMessage(Sender: TObject); private \\ protected public end; Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.