Zustand eines Buttons erkennen

[mm1256]

Zitat von Luckner:

Hallo,

folgendes Problem. Ich habe ein Editfeld und einen Abbruch-Button. Im Editfeld sollen und müssen nur Zahlen eingetragen werden....

Wenn ich das "müssen" richtig interpretiere, darf der Inhalt des TEdit nicht leer sein. Folglich muss an anderer Stelle sowieso noch eine Validierung auf <> '' stattfinden, womöglich auch noch Wertebereich-Check usw.

BTW ein einfaches TEdit ist nun mal keine "gute" Komponente für ein rein numerisches Eingabefeld. Auch nicht die neue Variante mit "NumbersOnly", denn wenn die z.B. noch mit dem Default-Text "Edit1" vorbelegt ist, oder der Text falsch vorbelegt wird (Edit1.Text := 'Hallo') dann hat man ein ähnliches Problem.

[FarAndBeyond]

FormKeyPress:

Delphi-Quellcode:

If Sender Is TEdit
Then
 Begin
  If Pos(Key,'1234567890'+#8#27#13) = 0 Then Key:= #0;
 End;

[himitsu]

Nur ein Tipp zum Vorgehen, ohne dass etwas blockiert:

Keine blokierenden Operationen im OnExit und es gibt keine Probleme.


Im OnExit oder OnChange nur prüfen und dann per Farbe, Hint, BallonHint oder Dergleichen den Status/Hinweis anzeigen.
Der HintText ist auch nett, wenn etwas eingegeben werden muß, da er nur angezeigt wird, wenn nichts in Text steht.

Und bei "OK" (Ausführen der Aktion) dann mit richtigen Fehlermeldungen um sich werden, wenn dann immernoch nichts drin steht.

[baumina]

Ich hab die Jedis nicht, aber hat so ein TJvValidateEdit kein OnValidate-Event?

[mm1256]

Die Jedi's kenne ich nicht. (Vorab-)Validierung bei der Eingabe lässt sich meiner Meinung nach immer noch am Benutzerfreundlichsten mit der Orpheus-Bibliothek von Turbopower realisieren, die ich mittlerweile schon ca. 18 Jahren verwende. Sind OpenSource und heute immer noch erste Sahne, dazu die komfortablen Einstellungen im OvcController wie AutoAdvanceChar, AutoAdvanceLeftRight, AutoAdvanceUpDown, AutoSelect, BeepOnError und InsertPushes.

[HolgerX]

Um mal zur Fragestellung zurück zu kommen...

Mit Delphi 6 gehts z.B. so:

Delphi-Quellcode:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if not(ActiveControl is TButton) then DoValidate(Edit1.Text);
end;

Statt '(ActiveControl is TButton)' kannst Du auch 'ActiveControl = AbbruchButton' benutzen und somit wird das Validieren nur ausgeführt, wenn du NICHT auch Abbruch clickst..