In edit mit focus schreiben

[edi3010]

Hey

Ich versuche seit Stunden einen passenden Befehl zu finden
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

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

MFG
Patti

Edit: Mein 400.

[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