FlatButton4Click method

Applies to
Tmsg_box1

Declaration
procedure FlatButton4Click(Sender: TObject);

Implementation

procedure Tmsg_box1.FlatButton4Click(Sender: TObject);
begin try
Tag:=StrToInt(TButton(Sender).Hint);
Close;
except end;End;


HTML generated by Time2HELP
http://www.time2help.com