Thema: Delphi max. wert von editboxen

Einzelnen Beitrag anzeigen

AlexanderBrade

Registriert seit: 14. Dez 2008
189 Beiträge
 
Delphi 2005 Personal
 
#10

Re: max. wert von editboxen

  Alt 22. Dez 2008, 18:22
Und wie nenn ich die Prozedur dann?

Ich hab mir mal was überlegt:

Delphi-Quellcode:
procedure TNotifyEvent(Sender: TObject);
begin
if Sender is Tedit then
  begin
    if TEdit(Sender)<0{???} or TEdit(Sender)>15 then
        begin
        Tedit(Sender).Color:=clred;
end;
end;
trystrtoint-->wohin?
  Mit Zitat antworten Zitat