Thema: Delphi Editbox funktion gesucht

Einzelnen Beitrag anzeigen

Klaus01

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

Re: Editbox funktion gesucht

  Alt 18. Apr 2007, 15:18
Delphi-Quellcode:
procedure TForm1.Edit3Change(Sender: TObject);
begin
if edit3.text <> 'then
  begin
    if strtoint(edit3.text)=x then //x ist hier der zahlenwert, mit dem verglichen werden soll...
      label7.Caption:='Richtig!
    else
      label7.Caption:='?';
  end;
end;

Aber bedenke, dass das onChange Ereignis immer ausglöst wird wenn
sich in den Text etwas ändert, also bei jedem Tastendruck.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat