Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jan,
14. Mär 2003
Danke Christian,
das habe ich dann nach einiger Zeit auch herausgefunden :]
Jetzt klappt ja alles.
Gruß
Jan
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jan,
12. Mär 2003
Hallo Flomei, das geht so:
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
If not(key in ) then
begin
beep;
key := #0;
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jan,
12. Mär 2003
hallo janjan,
klingt doch akzeptabel!
Aber zu sendkey finde ich leider nichts in der Hilfe.
Kanst du mir da weitere Informationen geben?
Gruß
Jan
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jan,
12. Mär 2003
Also ich habe für mein kleines Umrecnungsprogramm eine Eingabebschränkung programmiert, die z.B. so aussieht:
procedure TForm2.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
If not(key in ) then
begin
beep;
key := #0;
end;
end;