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

[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

[DeddyH]

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

[Dexo]

Zitat von DeddyH:

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

Das habe ich auch schon gemacht, aber er soll ja die Zahl da hinschreiben, wo der Focus ist

Trotzdem Danke

[DeddyH]

Das kann aber gefährlich werden, außerdem wurde ja schon angedeutet, dass bei Click der Button den Fokus bekommt, das hilft Dir ja auch nicht weiter. Skizzier doch mal Deine Anwendung etwas genauer, vielleicht gibt es ja andere Wege.

[Dexo]

Zitat von DeddyH:

Das kann aber gefährlich werden, außerdem wurde ja schon angedeutet, dass bei Click der Button den Fokus bekommt, das hilft Dir ja auch nicht weiter. Skizzier doch mal Deine Anwendung etwas genauer, vielleicht gibt es ja andere Wege.

Danke für deine Hilfe !

Unbenannt.jpg

[Klaus01]

.. also Du drückst den ZahlenButton, merkst Dir den Wert
dann drückst Du den FocusButton und fügst den Wert in das Editx.Text an.

Grüße
Klaus

[baumina]

Delphi-Quellcode:

If ActiveControl.InheritsFrom(TEdit) then
begin
  TEdit(ActiveControl).SelText := '7';
end;

[baumina]

SpeedButtons verwenden, das gibt keinen Fokus.

Edit1.SelText := '7';