Buchstaben als Fehlermeldung in Editfeldern

[DeddyH]

Und wenn es unbedingt ein Standard-Edit sein muss: man kann mit TryStrToInt prüfen, ob es sich um eine Zahl handelt. Oder man erweitert den Style des Edits um ES_NUMBER (Hinweise von Microsoft beachten):
SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE) or ES_NUMBER);

[rokli]

Hallo das geht wesentlich einfacher:

Du öffnest Dir die ONKEYPRESS Methode des Feldes, was Du eingrenzen möchtest und fügst ein:

Delphi-Quellcode:

// nur Ziffern im Feld erlauben
if not ((StrScan('0123456789', Key) <> nil) or (Key = Char(VK_BACK))) then
       Key := #0;

Alles was in der StrScan Klammer steht, wird zugelassen und ausserdem kannst Du noch mit der Backspace Taste zurückgehen; alles andere wird ignoriert.

Gruß
Rolf

[DeddyH]

Über die Zwischenablage bekommt man dann aber trotzdem noch Murks hinein.

[rokli]

Zitat von DeddyH:

Über die Zwischenablage bekommt man dann aber trotzdem noch Murks hinein.

... wenn ich mal für das Pentagon programmiere, überleg ich mir was anderes ...

[Satty67]

Für ein Formular hatte ich eine Lösung in der Art (Ereignisse allen Number-Edits zugeordnet):

Delphi-Quellcode:

procedure TestEditValue(AEdit : TEdit; ChangeColor : Boolean);
begin
  try
    StrToInt(AEdit.Text);
    if ChangeColor then
      AEdit.Color := clWindow
  except
    if ChangeColor then
      AEdit.Color := $B0B0FF
    else
      AEdit.Text := '0';
  end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Sender is TEdit then
    TestEditValue(TEdit(Sender), True);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Sender is TEdit then
    TestEditValue(TEdit(Sender), False);
end;

[Deep-Sea]

@Satty67:
Wie DeddyH schon sagte, ist TryStrToInt für so eine Lösung die bessere Wahl. Warum auch sinnlos eine Exception auslösen, die man eh sofort wieder abfängt?


@Satty67 & rokli:
Was spricht denn nun gegen den Einsatz von SpinEdit, ggf. MaskEdit oder die von DeddyH genannte Methode?

[rokli]

@Deep-Sea

... wenns funktioniert - doch garnichts - oder!?

@Sir Rufo

... da hast Du natürlich recht, aber wenn der Anwender danach sucht, wird er meist sowieso eine Möglichkeit finden, das Programm zum brennen zu bringen. Für mich ist die beschriebene Möglichkeit schnell und effizent.

Gruß
Rolf

[Satty67]

Zitat von Deep-Sea:

TryStrToInt für so eine Lösung die bessere Wahl.

Delphi 5 kennt die TryStrTo... Funktionen noch nicht, war nicht sicher, ob es D7 schon kennt.

Meine Lösung hatte ich nur gewählt, weil schnell auch andere Varianten möglich sind (Float, Datum etc. durch Tausch der StrTo... Funktion) und der Benutzer eine Rückmeldung bei der Eingabe bekommt. MaskEdit geht auch, aber finde ich meistens nicht so schön von der Eingabelogik.

[Sir Rufo]

Zitat von rokli:

Zitat von DeddyH:

Über die Zwischenablage bekommt man dann aber trotzdem noch Murks hinein.

... wenn ich mal für das Pentagon programmiere, überleg ich mir was anderes ...

Jo, denn ein normalo Anwender kann mit Murks und dadurch bedingte Exceptions super umgehen.
Nur das Pentagon hat den Bedarf an sauber programmierten Anwendungen