Form mit einem Edit

[Hansa]

Hi,

das hier sieht einfacher aus, als es ist. 8) Folgende Vorgaben :

1. eine Form und ein Edit, sonst nichts (das ist wichtig !!!)
2. nach Eingabe einer Zahl und Drücken von Return soll 2. Form angezeigt werden

Hierbei sollte der PC-Lautsprecher eingeschaltet / angeschlossen sein !!

[Treffnix]

:gruebel:

Wovon sprichst du? Ist das ne Frage, ne Aufgabe, ein Programm... ?

[alcaeus]

Ich verstehs auch nicht...

Greetz
alcaeus

[Matze]

Ich glaube, er meint es so:

Man hat eine Form, auf dieser ist ein Edit platziert (nur das eine Edit).

Nachdem man in das Edit eine Zahl eingegeben und man Return gedrückt hat, soll die 2. Form gezeigt werden, aber nur, wenn die PC Lautsprecher angeschlossen bzw eingeschaltet sind.


Aber das kann man ja nicht überprüfen. :gruebel:
Falls er das meint, wäre ein Titel wie "Überprüfen, ob Lautsprecher angeschlossen sind" o.Ä. besser. :?

[Stevie]

Ist das ein Rätsel? :gruebel: Mein Lösungsvorschlag:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  try
    StrToInt(Edit1.Text);
    TForm.Create(Application).ShowModal;
    Key := #0;
  except
  end;
end;

P.S. Boxen hab ich aber aus gehabt! :mrgreen:

[Hansa]

Was heißt Frage oder Aufgabe ? Aufgabe würde wohl bedeuten, daß ich die Lösung bereits hätte, nur wwozu sollte das dann gut sein ? :shock:

Anscheinend muß man immer Romane schreiben, uff. :roll:

Also nochmals : wie kann ich eine Form machen mit 1 Edit, in dem dieses mit RETURN verlassen werden kann und dadurch eine 2. Form angezeigt wird, sofern kein weiteres Control vorhanden ist und der Beep-Effekt nicht auftaucht.

Tja, das war jetzt dasselbe, wie im ersten posting. 8)


Edit:
Das ist keine Frage für PC-Boxen !!! :mrgreen:

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var probe : Integer;
begin
 if Key = #13 then begin
  try
   Probe := StrtoInt(Edit1.Text);
   Form2.Show;
  except
   ShowMessage('Zahl eingeben');
  end;
 end;
end;

Was ist das Problem ?

[glkgereon]

ich peil das mit den boxen nicht...
sollen die jetzt aus sein?
oder wie?

[Hansa]

Es kam ein Piepton, oder das Edit konnte nicht verlassen werden. So viel zu den Boxen. Wer keine an hat, der hätte es eben nicht bemerkt. :duck:

Es geht jetzt wie gewünscht. Anscheinend habe ich irgendwo ein key := #0; vergessen. 8) Es läßt sich auch schlecht nachvollziehen. Da es sich um einen Spezialfall gehandelt hat, werde ich mich hüten, vorerst etwas weitergehendes zu ändern. "never change a running system" :mrgreen: