Hallo,
danke Euch für die vielen hilfreichen Antworten. Habe mich für die Variate Label und Enter entschieden. Habe leider aber etwas Probleme sie umzusetzen. Hier mein Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
mac: integer;
per: integer;
begin
data_init;
bedarf_init;
prod_struc_init;
//Eingabe der Maschinendaten
Label1.caption:='Anzahl Maschinen eingeben';
TForm1.EingabefeldKeyDown(Sender,key,shift);
mac:=strtoint(Eingabefeld.text);
end;
procedure TForm1.EingabefeldKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key =13 then
end;
Was mache ich falsch? Er kann nicht complieren und springt auf key.
Danke!
Kaddy 8)
[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]