Einzelnen Beitrag anzeigen

Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#7
  Alt 12. Mär 2003, 18:51
Hallo Flomei, das geht so:

Delphi-Quellcode:
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  If not(key in [#48..#57,#65..#70,#97..#102,#8]) then
  begin
    beep;
    key := #0;
  end;
end;
Das wäre jetzt zum beispiel eine Restriktion für Hex-werte.

Um die Werte zu finden, die du haben willst, kannst du ja mein freeware tool benutzen, welches du hier in der freeware Sektion findest :]

Gruß
Jan

[edit=Daniel B]Delphi-Tags hinzugefügt. MfG Daniel B.[/edit]
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat