In edit mit focus schreiben

[edi3010]

Hey :-)

Ich versuche seit Stunden einen passenden Befehl zu finden :wiejetzt:
Ich habe ein Formular mit 2 Eingabefeldern und möchte, dass ich per Knopfdruck auf Button1 in das fokusierte/ aktivierte Eingabefeld schreibe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.Focused then

  edit1.text := edit1.Text + '1'
  else if edit2.Focused then

  edit2.text := edit2.Text + '1'

end;

Das Programm schreibt aber überhaupt nichts nirgendwo rein:-(
... ich glaube, dass es an dem Ausdruck "Focused" liegt...gibt es dann irgendeine Alternative?

ich hoffe, mir kann jemand helfen:-)

viele Grüße und schöne Weihnachten
Stefan

[patti]

Bin mir nicht sicher, aber evtl. hilft dir ActiveControl weiter, also etwa

Delphi-Quellcode:

if (ActiveControl = Edit1) then //...

(ungetestet)

MFG
Patti

Edit: Mein 400. :party:

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
TEdit -> VCL

[sx2008]

Sobald du auf den Button klickst hat dieser den Fokus!
Nimm einen TSpeedButton, dann bleibt der Fokus auf dem Editfeld.

[edi3010]

Tatsächlich :-) auf die Idee wäre ich nie gekommen!!
Mit dem Speedbutton funktioniert es.
Vielen Dank:-)

[Luckie]

Oder merk dir das fokussierte Edit in einem Variablen im Ereignis OnEnter, wenn du wirklich einen Button nehmen willst.

[edi3010]

ja... im Prinzip ist es ja egal, ob ich einen Speedbutton oder einen normalen habe(ich wusste ja nichtmal, dass der Speedbutton den Fokus NICHT auf sich zieht)... also es funktioniert zumindest so;-)
aber deine Idee merk ich mir auch mal....man weiß ja nie
Dankeschön :-)