Thema: Sender

Einzelnen Beitrag anzeigen

jandelph

Registriert seit: 3. Okt 2011
7 Beiträge
 
Delphi XE2 Professional
 
#1

Sender

  Alt 17. Nov 2011, 16:47
hallo,

ich muss einen Währungsumrechner(€-DM) erstellen, dabei soll ich die Fuktion sender benutzen!
Also 2 edit felder, wenn man nen knopf drückt soll dann beim anderen auch was stehen!
Ich hab das so verstanden:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
a, b : real;
begin
  a := StrToFloat(edit1.Text);
  b := StrToFloat(edit2.Text);
  if sender = edit1 then edit2.Text := FloatToStr(a*2);
  if sender = edit2 then edit1.Text := FloatToStr(b/2);
end;
das Progamm kann ich zwar ausführen jedoch gschieht nichts wenn ich den button drücke!
Welchen Fehler hab ich gemacht?
Danke!

LG
Jan

Geändert von mkinzler (17. Nov 2011 um 16:52 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat