How to assign event with code ?

[newsanti]

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;

 

 

[Ronak]

  TEventForm = class(TUniForm)

    UniButton1: TUniButton;

    procedure UniFormShow(Sender: TObject);

    procedure Click_InfoMessage(Sender: TObject);

  private

    \\

  protected

 

  public

 

  end;