Liegt der focus auf einem editfeld?

[Bine]

ich hab da ein problem mit dem umrechnen von ats in euro

auf dem form befinden sich zwei editfelder, im onchange ereignis steht die umwandlung drinnen,LEIDER wird auch das ergebnis (beim ändern von ats) von euro ausgfeührt, was wiederrum zu einen falschen ereignis führt.

mit onexit kann ich das leider auch nicht machen den wenn er zuerst einen ats preis eingibt und dann das feld euro verlässt, er sich den ats wert ausrechnet und das ergibt wieder einen falschen wert.

jetzt wollte ich abfragen

if ats.setfocus= true then umrechnen

wie mache ich das mit dem focus oder wie kann ich das anders lösen?

LG BINE

[Christian Seehase]

Hi Bine,<br>
<br>
versuch's mal mit<br>
<br>
if ats.<b>Focused</b> then umrechnen<br>
<br>
Ciao<br>
Chri

[Bine]

ich glaub nicht das das so geht,.. bitte um einen kleinen Tipp wie ich das schaffen kann :

[Mario.Noack]

Versuchs mal so:<p>
type
<br> TForm1 = class(TForm)
<br> Edit1: TEdit;
<br> Edit2: TEdit;
<br> procedure Edit2Change(Sender: TObject);
<br> procedure Edit1Change(Sender: TObject);
<br> private
<br> Umrechnung: Boolean;
<br> public
<br> { Public-Deklarationen }
<br> end;
<br>
<br>var
<br> Form1: TForm1;
<br>
<br>implementation
<br>
<br>{$R *.DFM}
<br>
<br>procedure TForm1.Edit2Change(Sender: TObject);
<br>begin
<br> IF Umrechnung THEN Exit;
<br> Umrechnung := True;
<br> Edit1.Text := Edit1.Text + '.';
<br> Umrechnung := False;
<br>end;
<br>
<br>procedure TForm1.Edit1Change(Sender: TObject);
<br>begin
<br> IF Umrechnung THEN Exit;
<br> Umrechnung := True;
<br> Edit2.Text := Edit2.Text + '.';
<br> Umrechnung := False;
<br>end;<p>
Grüße, Mario Noac

[Bine]

dankeee das funktioniert :