[GELÖST] Key (z.B 'A' ) per Button an ein Editfeld senden

[haentschman]

Hallo und willkommen hier...

Wie würdest du deinen bisherigen Kenntnisstand einschätzen? Weißt du was Events sind und wie man sie benutzt? Ich gebe dir mal die Lösung. Wenn du das nicht verstehst, frage einfach nach.

Lösung:
1. In der Entwurfsansicht Doppelklick auf den Button -> Der Editor öffnet sich mit einem vorgefertigtem Prozedurrumpf.
In etwa so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

end;

2. Dort trägst du dann den Code ein der beim drücken des Buttons ausgeführt werden soll.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  Edit1.Text:= '7';
end;

3. fertig.

HINWEIS:
Der Code ist, obwohl er funktioniert, nicht wirklich gut. Darstellung und Daten sind immer zu trennen. In Anbetracht deiner Signatur das nur als Hinweis.

[Dexo]

Zitat von haentschman:

Hallo und willkommen hier...

Wie würdest du deinen bisherigen Kenntnisstand einschätzen? Weißt du was Events sind und wie man sie benutzt? Ich gebe dir mal die Lösung. Wenn du das nicht verstehst, frage einfach nach.

Lösung:
1. In der Entwurfsansicht Doppelklick auf den Button -> Der Editor öffnet sich mit einem vorgefertigtem Prozedurrumpf.
In etwa so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

end;

2. Dort trägst du dann den Code ein der beim drücken des Buttons ausgeführt werden soll.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  Edit1.Text:= '7';
end;

3. fertig.

HINWEIS:
Der Code ist, obwohl er funktioniert, nicht wirklich gut. Darstellung und Daten sind immer zu trennen. In Anbetracht deiner Signatur das nur als Hinweis.

Danke

Also ich habe schon so ein paar Grundkentnisse und habe auch schon einmal einen einfachen Taschenrechner geschrieben, der
2Edits für Wert1 und Wert2 hatte, ein Edit für die Ausgabe des Ergebnisses und 4 Button (+ - * /)...

Delphi-Quellcode:

procedure TRechnerMainForm.ButtonPlusClick(Sender: TObject);
begin
  wert1:=strtofloat(Wert1Edit.text);
  wert2:=strtofloat(Wert2Edit.text);

  ergebnis:= wert1+wert2;

  ErgebnisEdit.text:= floattostr(ergebnis);

end;

Möchte es so haben, dass der Button die Zahl da reinschriebt, wo der Focus, den man ebenfalls durch Buttons setzen kann, gerade ist.

Also geht das mit

Edit1.Text:= Edit1.Text + '7';

Leider nicht, da er dann ja nur in das Editfeld schriebt .....

Bin langsam echt am verzweifeln...