Programcic ima priključni fajl sa odabranim opcijama i tekstom poruke MsgBoxStub.stb
Kad odabereš koju će ikonu i poruku da prikaže to se snimi u ovaj fajl i kasnije čita podešavanja iz njega.
Code:
var
Form1: TForm1;
Odabrano:Byte = 0;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
case Odabrano of
0: MessageDlg('Test',mtWarning,[mbYes,mbNo],0);
1: MessageDlg('Test',mtError,[mbYes,mbNo],0);
2: MessageDlg('Test',mtInformation,[mbYes,mbNo],0);
end;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Odabrano:=0;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Odabrano:=1;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
Odabrano:=2;
end;
sada
Odabrano i
text poruke možeš da snimiš u taj fajl