Edit Eingabe nur auf Zahlen beschränken, Probleme mit ^

[gfjs]

So! Jetzt habe ich mir das Ganze noch einmal angeschaut.

Das einzig erfreuliche: Das Einfügen mit Ctrl-v macht keine Probleme - das wird abgefangen, weil ja der Key-Code von 'v' gesendet wird.

Was mir absolut schleierhaft bleibt ist, wieso ^ und ´ Probleme machen. Es wird hier ja keine weitere Taste gedrückt, so dass kein virtueller Tastaturcode ins Spiel kommt und der Wert von key ist 94 bzw. 180, sollte also durch "if key in [48..57]" abgefangen werden.

Was mir in diesem Zusammenhang noch Probleme macht, sind die virtuellen Tastaturcodes. Ich kann zwar feststellen, ob z.B. Ctrl oder Tab gedrückt wurde, habe aber noch nicht rausgefunden, wie ich das Drücken der Tasten Shift, Ctrl, Alt und AltCltrl abfangen kann.

Es wäre schön, wenn Ihr mir weiterhelfen könntet.

Gruß Jürgen

[s.h.a.r.k]

meinst du meine komponente damit!?

[Sherlock]

Glaube ich kaum. Übrigens, die Komponente find ich Klasse, werde ich gleich mal verwenden, ich brauche sowas immer wieder.



Sherlock

[Luckie]

Zitat von gfjs:

So! Jetzt habe ich mir das Ganze noch einmal angeschaut.

Aber den Titel deines Threads hast du immer noch nicht geändert. Falls du nicht weißt, wie das geht, Frag doch einfach. Du musst dazu nur deine rstes Posting editieren.

[TonyR]

Zitat von gfjs:

...Das einzig erfreuliche: Das Einfügen mit Ctrl-v macht keine Probleme - das wird abgefangen, weil ja der Key-Code von 'v' gesendet wird...

Und was ist mit RECHTSKLICK > EINFÜGEN ???

Link: Virtual key codes

[ATSV]

Zitat von TonyR:

Zitat von gfjs:

...Das einzig erfreuliche: Das Einfügen mit Ctrl-v macht keine Probleme - das wird abgefangen, weil ja der Key-Code von 'v' gesendet wird...

Und was ist mit RECHTSKLICK > EINFÜGEN ???

Link: Virtual key codes

das lässt sich doch mit MouseDown abfangen würd ich sagen

[TonyR]

Zitat von ATSV:

das lässt sich doch mit MouseDown abfangen würd ich sagen

Stimmt, klingt gut, ich habs grad probiert, hat nicht geklappt -.-
als einzig funktionierende Variante hab ich es hinbekommen das Edit mit einem leeren PopUpMenü zu verknüpfen, gibts da noch eine sauberere Variante?

Edit @ s.h.a.r.k:
Warum kann ich folgende Zeichen in dein Edit eingeben? - #

[ATSV]

Delphi-Quellcode:

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    ShowMessage('Stop!');
  end;
end;

also so gehts

[Angel4585]

und wenn man auf der tastatur diese List taste drückt?

[ATSV]

Zitat von Angel4585:

und wenn man auf der tastatur diese List taste drückt?

dann würd ich sagen man amcht das ganze so:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 93 then begin
    ShowMessage('Stop!');
  end;
end;