Eigenen Dialog aufrufen

[bundy]

Hy ich mal wieder.


Ich hab mir nen eigenen Dialog (form) gemacht.

Meine Frage , wie kann ich diesen aufrufen und abfragen welcher button gedrückt worden ist (JA,Nein);

Also so wie man das mit einen Normalen Dialog auch macht.

lg

Bundy

[arbu man]

Das Ganze könnte in etwa so aussehen:

Delphi-Quellcode:

function Execute:boolean; // Der Aufruf
begin
  fdeineform:= Tfdeineform.Create(Application);
  try
    fdeineform.ShowModal;
    result:=fdeineform.execute;
  finally
    fdeineform.Free;
  end;
end;

type
  Tfdeineform = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  public
    execute:boolean;
  end;

...

procedure Tfdeineform .Button2Click(Sender: TObject);
begin
  execute:=false;
  close;
end;

procedure Tfdeineform .Button1Click(Sender: TObject);
begin
  execute:=true;
  close;
end;

Aber wenn du nur einen dialog mit ja und nein brauchst guckst du dir am besten mal application.messagebox oder windows.messagedlg an.

[bundy]

Eigendlich hab ich da eh nur Ja und nein drauf, aber mir gefällter der standart Dialog nicht.

[SirThornberry]

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:

Delphi-Quellcode:

ModalResult := mrYes;

und schon wird das Formular geschlossen und ShowModal hat somit den Wert von mrYes.

[bundy]

Gleich mal testen . :-D

[bundy]

Wie werte ich dann den Modalresult im Form aus ? :gruebel:

[SirThornberry]

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:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form2.ShowModal = mrYes then
    ShowMessage('ja wurde gedrückt')
  else
    ShowMessage('ja wurde NICHT gedrückt').
end;

und in Form2 schreibst du dann beim Button-Ja folgendes:

Delphi-Quellcode:

procedure TForm2.ButtonJaClick(Sender: TObject)
begin
  ModalResult := mrYes; //mrYes ist eine Konstante, kann auch jeder andere Integer sein
end;

und im OnClick von Button-Nein:

Delphi-Quellcode:

procedure TForm2.ButtonJaClick(Sender: TObject)
begin
  ModalResult := mrNo;
end;

[ManuMF]

ModalResult setzen: Wie SirThornberry geschrieben hat, oder per BitButton (für die kann man ein ModalResult setzen).

Abfrage:

Delphi-Quellcode:

case EigenesForm.ShowModal of
  mrYes: ...
  mrNo: ...
end;

Habe den Roten Kasten gesehen. Ich wollte aber auf die BitButtons hinweisen ;-)

Gruß,
ManuMF

[SirThornberry]

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.

[bundy]

also irgendwas klapt da nich, schaut mal


ich hab im dialog

Delphi-Quellcode:

procedure TfmDialogDiensteAuchBuchen.btJaClick(Sender: TObject);
begin
ModalResult:=mrYes;
close;
end;

procedure TfmDialogDiensteAuchBuchen.btNeinClick(Sender: TObject);
begin
ModalResult:=mrNo;
close;
end;

und im Mainform das

Delphi-Quellcode:

case fmDialogDiensteAuchBuchen.ShowModal of
         mrYes:  Beep;  //nur zum testen
         mrNo: close;  

       end;

aber macht keinen Beep wenn ich auf Ja drück :gruebel:

[ManuMF]

Bei BitButtons muss man das Close weglassen. Könnte da auch der Fall sein.

Gruß,
ManuMF

[bundy]

Ich verwende Button von Developer Express cxButton

Aber ich test mal ohne Close..... uno Momento

[SirThornberry]

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.

[Matze]

Hi. Das Close ist imho überflüssig.

Also bei mir geht das (siehe Anhang). Dass das so schön geht mit ModalResult, habe ich auch noch nicht gewusst. :)

[bundy]

:thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb: :thumb:
******* FUNKTIONIERT **************

DANKE Leute, echt net von euch :hello: :hello: :hello: :hello: :hello:

[bundy]

Noch ne kurze Frage.


Das Form schliesst aber warum .

Woher kommt dann eigendich das CLOSE

[Matze]

Zitat:

Zitat von bundy

Das Form schliesst aber warum .

Ich zitiere einen Satz aus der OH

Zitat:

Zitat von OH

Die Eigenschaft ModalResult einer TButton-Komponente bietet eine einfache Möglichkeit, durch das Anklicken einer Schaltfläche ein modales Formular zu schließen. [...]

[SirThornberry]

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 ist).
Geschlossen wird das Form wegen "ModalResult :="
Da du das Form mit "ShowModal" öffnest signalisierst du damit natürlich auch das du fertig bist.

[bundy]

OK..... Danke , habt mir echt weitergeholfen :thumb: :thumb: :thumb:

[Amateurprofi]

Zitat:

Zitat von Matze

Hi. Das Close ist imho überflüssig.

Das "Close" ist nicht nur überflüssig sondern bewirkt, daß als Resultat mrCancel zurückgegeben wird.

[fkerber]

Hi!

Kehrt er nicht sofort nach setzen des Modalresults zurück, sodass das Close nicht mehr ausgeführt wird?


Ciao Frederic

[bundy]

Ne das Close macht er trozdem aber der Result ist dann nicht mrYes oder mrNo, das hab ich getestet.

[SirThornberry]

stimmt, habs auch grad mal debuggt. Wieder was dazu gelernt.