keypress und window schliessen

[runger]

Hallo,
ich habe ein seltsames Verhalten in einem von uns geschrieben Programm. Vielleicht kann jemand helfen.

Es befinden sich, auf einem Formular 3 Radiobuttons und zwei Buttons. Mit einem Button werden die Werte der drei Radiobuttuns (checked) in boolsche Variablen geschrieben. Beim öffnen des Formulars werden die Radiobuttons (onshow) jeweils wieder so gesetzt wie sie in den Variablen standen. Der zweite Button schliesst das Fenster einfach mit close. Das funktioniert alles prächtig.
Wir wollen das Fenster aber auch mit ESC schliessen und haben das Ganze in onkeypress des Formulars abgefangen.
Funktioniert auch, nur sind die Zustände der Radiobuttons, nach dem wiederöffnen, in einem falschen Zustand, obwohl diese laut Debugger richtig gesetzt sind.
Beim verlassen des Formulars mit dem Button muss sich das Fenster also anders verhalten als beim verlassen über Onkeypress, obwohl in beiden nur ein close steht.
Ich versteh das nicht.

Rainer

[BrunoT]

Hi runger,

sind die Boolschen Variablen global oder lokal definiert?

mfg

BrunoT

[runger]

Hallo,
global definiert. Das ist es aber nicht, hab ich mit Debugger überprüft. Die Radiobuttons werden in onshow richtig gesetzt, aber trotzdem falsch angezeigt.

Wie gesagt, ich verstehs nicht.

Rainer

[BrunoT]

Versuch mal, mit Keypress das ButtonClick-Ereignis des Schließen-Buttons anzusprechen

[runger]

Hallo,

hab ich auch versucht. Gleiches Verhalten. Das Programm verhält sich nach wie vor anders wenn ich das Window mit ESC verlasse.

Rainer

[runger]

Hallo,

ich bekomme dieses Problem auch, wenn ich statt onkeypress den Abbruchbutton cancel auf true setze und dann mit ESC rausgehe.

Rainer

[ringli]

Nützt es etwas wenn du das Ganze im KeyDown statt im KeyPress versuchst?

[BrunoT]

Hast du die Variable Key nach keypressed auf Null gesetzt oder bei ESC gelassen?

Delphi-Quellcode:

if key = 27 then
Begin
  key:=0;
  close;
end;

ich denke mal, da ESC ja als Abbruch sonst vom Programm weiterverarbeitet wird, erfolgt keine korrekte Zuweisung.

@ringli,

Das ist schon interessant, ich weiß nur nicht im Augenblick, welches Ereignis zuerst eintritt. Das wäre auszuprobieren.

[ringli]

Also ich mache dass immer so:

Delphi-Quellcode:

{*** Tastenkürzel vergeben ***}
procedure TProgramm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  {*** ESC beendet das Programm ***}
  if (Key = $1B) then CancelClick (Sender);
end;

[runger]

Hallo,

nützt alles nix. Hier ist ein Testprog mit Quellcode. Vielleicht findet ihr raus was da passiert.
Für alle Stylisten, das ist ein schnell zusammengeschustertes Prog.

Rainer