Es ist sicherlich eine ziemlich einfache Frage, aber ich habe dazu keine schluessige Antwort gefunden.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TSpielflaeche.m_optionsClick(Sender: TObject);
var
dlgOptions : TForm1;
begin
dlgOptions := TForm1.Create(self);
try
if dlgOptions.ShowModal = mrOK then
begin
player1.setaccount(strtoint(dlgOptions.ed_account.text));
player2.setaccount(strtoint(dlgOptions.ed_account.text));
player1.setname(dlgOptions.ed_name1.text);
player2.setname(dlgOptions.ed_name2.text);
croupier.setbets(strtoint(dlgOptions.ed_minbet.text),strtoint(dlgOptions.ed_maxbet.text));
croupier.setrounds(strtoint(dlgOptions.ed_rounds.text));
end;
finally
dlgOptions.Free;
end;
end; |
Ich habe jetzt die Unit options2 mit dem Form drinnen von den Optionen. Da habe ich mir eine button_applyclick function gemacht und die soll ja jetzt denk ich mal ShowModal = mrOk setzen oder ?
Hab ich im Grundprinzip was falsches verstanden?
Das Form soll schliessen und die Einstellungen in der Funktion oben sollen gemacht werden wenn ich auf APPLY druecke
