Nach Showmessage Daten aus einem Editfeld einlesen

[Stanlay Hanks]

@ all. ich weiß schon dass ich grade nen riesen scheiß geschrieben hab. hab das irgendwie durcheinander gebracht. Hab an #13#10 als zeilenumbruch gedacht und das dann mit enter in Verbindung gebracht. Tut mir leid :oops: :oops: :oops:

[kaddy]

okay, habe verstanden, dass ich bei der procedure Eingabefeldkeydown Werte mit übergeben muß. Wie muß ich die jetzt deklarieren?
Im Grunde will ich mit der Zile darauf hinaus, dass der Benutzer erst enter drücken muß bevor es weitergeht.
Viele Grüße
kaddy :?

[Christian Seehase]

Moin Kaddy,

da muss ich nochmal auf das Thema ereignisgesteuerter Abläufe abschweifen:

Für mein Verständnis müsste das so ablaufen:

1. Button1 wird geklickt
2. Das Eingabefeld erscheint/wird freigeschaltet
3. Es erfolgt eine Eingabe
4. Es wird Enter gedrückt
5. Die Eingabe wird übernommen

Bei Dir soll dies alles in einer Prozedur ablaufen.
Würde es sich um ein Konsolenprogramm handeln wäre das wohl machbar, bei einem fensterorientierten Programm müsste das aber so aussehen:

Delphi-Quellcode:

// Eingabefeld eingabebereit machen
procedure TForm1.Button1Click(Sender: TObject);

begin
data_init;
bedarf_init;
prod_struc_init;

//Eingabe der Maschinendaten
  Label1.caption:='Anzahl Maschinen eingeben';
end;

// Eingegebene Daten übernehmen
procedure TForm1.EingabefeldKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key = VK_RETURN then
  begin
    mac := strtoint(Eingabefeld.text);
  end;
end;

Dazu muss dann die Variable mac die den Wert erhält natürlich global, oder als Feld, z.B. von TForm1 angelegt werden.

[kaddy]

Danke Dir! Hat geklappt!
Gruß
Kaddy

[BrainCode]

Auch wenn's zu spät ist: Hier meine Varianten: http://www.delphipraxis.net/viewtopic.php?t=4877