Nach Showmessage Daten aus einem Editfeld einlesen

[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.