AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi [GELÖST] Key (z.B 'A' ) per Button an ein Editfeld senden

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

Ein Thema von Dexo · begonnen am 21. Jan 2015 · letzter Beitrag vom 21. Jan 2015
Antwort Antwort
Seite 2 von 3     12 3   
Dexo

Registriert seit: 19. Jan 2015
Ort: Nrw - Münsterland
12 Beiträge
 
FreePascal / Lazarus
 
#11

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:16
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
MfG, Daniel
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#12

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:18
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:18
SpeedButtons verwenden, das gibt keinen Fokus.

Edit1.SelText := '7';
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Dexo

Registriert seit: 19. Jan 2015
Ort: Nrw - Münsterland
12 Beiträge
 
FreePascal / Lazarus
 
#14

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:23
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
MfG, Daniel
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.768 Beiträge
 
Delphi 10.4 Sydney
 
#15

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:26
.. 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
Klaus
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#16

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:27
Delphi-Quellcode:
If ActiveControl.InheritsFrom(TEdit) then
begin
  TEdit(ActiveControl).SelText := '7';
end;
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#17

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:32
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.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Dexo

Registriert seit: 19. Jan 2015
Ort: Nrw - Münsterland
12 Beiträge
 
FreePascal / Lazarus
 
#18

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:33
Danke!
MfG, Daniel
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#19

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:36
@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.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Dexo

Registriert seit: 19. Jan 2015
Ort: Nrw - Münsterland
12 Beiträge
 
FreePascal / Lazarus
 
#20

AW: Key (z.B 'A' ) per Button an ein Editfeld senden

  Alt 21. Jan 2015, 15:38
@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
MfG, Daniel
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz