Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Jan 2006
stimmt, habs auch grad mal debuggt. Wieder was dazu gelernt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jan 2006
man sollte aufpassen nicht nur "mrYes" und "mrNo" abzufangen sondern wirklich mit Else zu arbeiten. Schließlich kann es auch passieren das jemand das form per "Alt + F4" schließt oder über das X in der Titelleiste und da kommt eben weder "mrYes" noch "mrNo" zurück. (ich glaub es ist mrCancel aber ich würde nicht drauf wetten das es in den nächsten Delphiversionen immer noch mrCancel oder mrClose...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jan 2006
vielleicht ist das Beep in deinem Windows einfach abgeschaltet. Übrigens - alles was hinter
"ModalResult := irgenwas"
kommt wird nicht mehr ausgeführt da bei dieser Anweisung schon zurück gesprungen wird.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jan 2006
der Normale TButton hat auch unter Delphi7 bereits das Property ModalResult.
Allerdings wollte ich nicht darauf hinweisen weil sonst irgendwann die Frage kommt wie man das macht wenn jemand auf ein Image klickt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jan 2006
ganz einfach. Du hast ein Hauptformular (im folgenden als Form1 bezeichnet) und von da aus willst du deinen Dialog aufrufen (im folgenden als Form2 bezeichnet). Mal angenommen du zeigst den Dialog per ButtonClick an:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Form2.ShowModal = mrYes then
ShowMessage('ja wurde gedrückt')
else
ShowMessage('ja wurde NICHT...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
6. Jan 2006
du kannst ein Form mit "ShowModal" aufrufen. ShowModal liefert einen Integer zurück. Und den Integer kannst du vom Formular her setzen. Wenn zum Beispiel auf den Ja-Button geklickt wird brauchst du nur folgendes schreiben:
ModalResult := mrYes;
und schon wird das Formular geschlossen und ShowModal hat somit den Wert von mrYes.