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

[Dexo]

!GELÖST!

Hey,
ich habe gerade ein Problem
Und zwar programmiere ich momentan einen Taschenrechner und möchte gerne, dass er, wenn ich auf den Button drücke, dass er dann eine Zahl (z.B 7) in das Editfeld schreibt, wo gerade der Focus ist.
Allerdings soll er das auch in ein anderes Editfeldschreiben, wenn ich den Focus ändere...

Da ich keine Ahnung habe wie ich das machen soll und ich im Internet bzw. hier noch nichts darüber herausbekommen habe, würde ich mich über eine schnelle Antwort sehr freuen

(Bin mit Delphi/Lazarus noch nicht so der Pro )

[Klaus01]

Hallo,

wenn Du den Button (7) drückst - wird der den Focus haben.

Grüße
Klaus

[Dexo]

Zitat von Klaus01:

Hallo,

wenn Du den Button (7) drückst - wird der den Focus haben.

Grüße
Klaus

Mir geht es auch eigentlich eher um den Code

Wenn ich den Button drücke, soll er eine Zahl, also eine Taste von dem Keyboard, an das Editfeld senden (falls das überhaupt geht )... daran scheitere ich momentan

Trotzdem danke für deine Antwort

[Klaus01]

..meinst Du das in etwa so?

Delphi-Quellcode:

procedure TForm1.Button7Click(sender:TObject);
var
  tempStr: String:
begin
  tempStr := display.text;
  tempStr := concat(tempStr,'7');
  display.text := tempStr;
end;

Grüße
Klaus

[Nersgatt]

Du kannst das Zeichen ja einfach in das Feld schreiben:

Edit1.Text := '1';

[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 Klaus01:

..meinst Du das in etwa so?

Delphi-Quellcode:

procedure Button7.click(sender:TObject);
var
  tempStr: String:
begin
  tempStr := display.text;
  tempStr := concat(tempStr,'7');
  display.text := tempStr;
end;

Grüße
Klaus

Ja sowas meine ich, allerdings erscheint dann die Nachricht
"Error: Identifier not found 'ConcatStr' "

[Klaus01]

Zitat von Dexo:

Ja sowas meine ich, allerdings erscheint dann die Nachricht
"Error: Identifier not found 'ConcatStr' "

Ich hatte den code zwischenzeitlich ausgebessert.
Grüße
Klaus

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

[DeddyH]

Wieso denn nicht einfach
display.Text := display.Text + '7'; ?