keypress und window schliessen

[dfried]

In deinem Beispielprogramm wird der Status der Buttons beim verlassen des Fensters aber überhaupt nicht gespeichert oder hab ich da was übersehen?

edit: Sorry, hab "falsch rum" gekuckt, beim verlassen mit "ESC" soll ja grad NICHT gespeichert werden...

Gruß
Daniel

[BrunoT]

Hi runger,

du verwendest Radiobutton, wo du eine RadioGroup verwenden kannst. dann funktioniert es.
Außerdem habe ich die Keyprewiev- Eigenschaft der Form2 auf true gestellt.

mfg

BrunoT

[runger]

Hallo BrunoT,

das funktioniert genausowenig wie bei mir. Wenn man mit cancel rausgeht verhält sich das anders als wenn man mit ESC rausgeht. Da gibt es keinen Unterschied zwischen dir und mir. ???

Rainer

[shmia]

Handelt es sich um ein modales oder nichtmodales Formular?
Bei einem modalen Formular (und das bietet sich an), gibt es folgende Features:
Ein Button, dessen Property Cancel auf True steht wird automatisch von der VCL geklickt, wenn der Benutzer Escape drückt.
(Also vergiss alles mit KeyPress.)
Es darf nur einen Button mit Cancel=True geben!!

Wenn dieser Button (oder BitBtn) im Property ModalResult einen Wert ungleich mrNone wird das Formular automatisch geschlossen.

Ein modales Formular wird im Prinzip so benützt:

Delphi-Quellcode:

var
   frm : TProgSettingsForm;
begin
   // Formular erzeugen
   frm := TProgSettingsForm.Create(nil);
   try
     // Anfangswert ins Formular schreiben
     frm.AnzahlVersuche := .....

     if frm.ShowModal = mrOK then
     begin
        // evtl. geänderte Werte auslesen und irgenwo speichern
        ... := frm.AnzahlVersuche;
     end;
   finally
     frm.Free;
   end;
end;

[runger]

Hallo shmia,

das ist alles längst gegessen. Es ist ein modales Fenster. Den Button auf cancel setzen ist in meinem Prog realisiert. Ich will dass das Ganze mit dem Demoprogramm funktioniert und zwar auf einfache Weise. Es gibt überhaupt keinen Grund warum sich das Ganze anders verhält je nachdem ob ich cancel drücke oder ESC.
Downloade mein Programm und probiers aus.

Rainer

[dfried]

Wennich das setzen der RadioButtons von "FormShow" in "FormActivate" verschiebe funktioniert es wie gewollt. Ist zwar nicht so schön, aber tut.

Gruß
Daniel

[runger]

Hallo Daniel,

Klasse, wenigstens eine Lösung für mein Problem.
Wenn du mir jetzt noch sagst warum das bei onshow nicht und bei onactivate geht wäre ich glücklich.

Rainer

[BrunoT]

Hi runger,

1. 2.Form öffnen
2. RadioButton wählen, (zum Test habe ich beide Varianten angeclickt)
3. Save, Form zu über Schließen
4. Form auf
5. anderen RadioButton wählen,
6. Esc
7. Form auf, in der Radiogroup ist der gespeicherte Zustand, in den einzelnen Button nicht.

Ich habe nicht die Einstellung mrCancel und Cancel:=true benutzt, sondern wie gefordert das Keydownereignis der Form.

mfg

BrunoT

Ps. sollte es sich erledigt haben, bitte mal erläutern, wie.

[dfried]

Zitat von runger:

Klasse, wenigstens eine Lösung für mein Problem.
Wenn du mir jetzt noch sagst warum das bei onshow nicht und bei onactivate geht wäre ich glücklich.

Tja, wenn ich das wuesste
Da muesste man wahrscheinlich mal in den tiefen der VCL forschen.

Gruß
Daniel

[shmia]

Zitat von runger:

das ist alles längst gegessen. Es ist ein modales Fenster. Den Button auf cancel setzen ist in meinem Prog realisiert. Ich will dass das Ganze mit dem Demoprogramm funktioniert und zwar auf einfache Weise. Es gibt überhaupt keinen Grund warum sich das Ganze anders verhält je nachdem ob ich cancel drücke oder ESC.

Ok, ich habe gesehen, das sich das Demo tatsächlich seltsam verhält.
Du machst aber versch. Fehler in deinem Demo.
1.) Du hast ModalResult bei deinem Buttons nicht gesetzt
2.) Du erzeugst das Formular nicht jedesmal neu, wie von mir gezeigt
3.) der Datenfluss ist falsch!!!!
in deinem Demo holt sich das modale Formular die Variable a,b,c von Unit1.
Es muss genau umgekehrt laufen:
Deine Anwendung schreibt die Daten auf modale Formular und holt die Ergebnisse ab, wenn ModalResult = mrOK war.
Das modale Formular sollte so designt werden, dass keine Abhängigkeiten zu anderen Units in der Anwendung bestehen.
Schau dir meinen Delphicode nochmals an, dann siehst du dass diese Vorgehensweise 100% wasserdicht ist.