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;