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

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

[baumina]

SpeedButtons verwenden, das gibt keinen Fokus.

Edit1.SelText := '7';

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

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

[DeddyH]

Oder man merkt sich einfach, welches Edit zuletzt den Fokus hatte.

Delphi-Quellcode:

type
  TDeinForm = class(TForm)
  private
    FLastFocusedEdit: TCustomEdit;
    procedure RememberLastFocusedEdit(Sender: TObject);
    ...
  end;

...

(* Diese Methode beiden Edits zum OnEnter-Ereignis zuweisen *)
procedure TDeinForm.RememberLastFocusedEdit(Sender: TObject);
begin
  if Sender is TCustomEdit then
    FLastFocusedEdit := TCustomEdit(Sender);
end;

Im OnCreate des Forms kann man FLastFocusedEdit mit einem der beiden Edits vorbelegen, die Buttons greifen dann auf das private Feld zu:

Delphi-Quellcode:

procedure TDeinForm.btn7Click(Sender: TObject);
begin
  FLastFocusedEdit.Text := FLastFocusedEdit.Text + '7';
end;

@baumina: ActiveControl dürfte mit ziemlicher Sicherheit der auslösende Button sein, zumindest wenn es sich um einen Standard-Button (TWinControl) handelt.

[Dexo]

Danke!

[baumina]

Zitat von DeddyH:

@baumina: ActiveControl dürfte mit ziemlicher Sicherheit der auslösende Button sein, zumindest wenn es sich um einen Standard-Button (TWinControl) handelt.

Deswegen mein Hinweis oben besser SpeedButtons zu verwenden.

[Dexo]

Zitat von baumina:

Zitat von DeddyH:

@baumina: ActiveControl dürfte mit ziemlicher Sicherheit der auslösende Button sein, zumindest wenn es sich um einen Standard-Button (TWinControl) handelt.

Deswegen mein Hinweis oben besser SpeedButtons zu verwenden.

Also wenn ich SpeedButtons verwende bleibt ActiveControl bei den Edits?

-Daniel