max. wert von editboxen

[AlexanderBrade]

Wie kann ich in Delphi den max. bzw. minimalen Wert von editboxen(es sind ca. 50) angeben?
Beim Eintippen einer zu großen bzw. zu kleinen Zahl soll er eine Warnung ausgeben bzw. diejeweilige Box rot einfärben!
Wie bekomme ich das möglichst schnell hin?
Vielen Dank im voraus!!!

[mkinzler]

Reagiere uaf Eingabe und Teste die Grenzen ab.

[AlexanderBrade]

Und wie mache ich das?

[DeddyH]

Z.B. OnChange oder OnExit mit TryStrToInt oder StrToIntDef in eine Zahl wandeln und prüfen.

[AlexanderBrade]

Damit kann ich schon etwas anfangen, aber wie lege ich die editbox, bzw. deren "Nummer " variabel fest um nicht 50 selbige Programmabläufe schreiben zu müssen?

[DeddyH]

Du schreibst das einmalig für das erste Edit und stellst diese Methode im OI für alle Edits ein. Wichtig ist dabei aber, dass Du keine statischen Komponentennamen verwendest, sondern den Sender-Parameter auswertest.

[Noedel]

erzeug sie in der laufzeit ?!

Delphi-Quellcode:

var neuesEdit:Tedit;
begin
neuesEdit:=TEdit.create(Form1);
neuesEdit.bla_bla_bla:=Wert_von_bla_bla_bla;
...
end;

[AlexanderBrade]

Über Sender habe ich noch nicht so viel gehört:
Schreibe ich dann eine Prozedur, wie?

Delphi-Quellcode:

trystrtoint(Sender);
if Sender{usw}

[DeddyH]

Ein Beispiel hatte ich doch bereits hier gepostet (gut, da ging es um Checkboxen, aber das Prinzip ist ja dasselbe).

[AlexanderBrade]

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?