In einem Edit nur Zahlen erlauben!

[yankee]

Klar, mach einfach

Delphi-Quellcode:

if (key='V') AND (key={strg eben}) then...

[Viperb0y]

then... und weiter?

Was soll ich da denn hinschreiben? :wiejetzt:

[yankee]

wat weiß ich. z.B.: edit1.PasteFromClipboard, falls das funzt. Ansonsten

Delphi-Quellcode:

 if not (key in [#8,#46,#48..#57]) OR ((key='V') AND (key=STRG))) then key:=#0;

Du musst nur STRG durch den entsprechenden dings ersetzen...

[Viperb0y]

Danke, ich guck gleich ma obs geht!

[yankee]

Mir fällt gerade auf, dass Kex eigentlich garnicht V und STRG sein kann. Es muss eher STRGV sein. Da gibt es aber so eine Seite:
http://www.asciitable.com/

[Viperb0y]

Zitat:

Zitat von yankee

Mir fällt gerade auf, dass Kex eigentlich garnicht V und STRG sein kann. Es muss eher STRGV sein. Da gibt es aber so eine Seite:
http://www.asciitable.com/

1. Kenne ich die Seite
2. Finde ich da kein STRG
3. STRGV erst recht nich ^^

[Viperb0y]

Hallo,

Ich habs anders gelöst! Aber danke :) Bye

[yankee]

Bitte schreibe uns auch noch, wie du es gelöst hast, damit andere, die das gleiche Problem haben und die SuchenFunktion nutzen auch was davon haben.

[Viperb0y]

Hallo,

Ich habe ein Label Hinzugefügt wo steht das die User rechtsklick machen sollen und dann auf Einfügen klicken :mrgreen:

Ist ne Möglichkeit ;)

[fkerber]

Hi!

Ich würde es so lösen:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#8,#46,#48..#57]) then key:=#0;
end;


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if shift=[ssctrl] then begin
  if (key=Ord('V')) or (key=Ord('v')) then
    edit1.PasteFromClipboard;
  end;
end;

Ist glaube ich besser.
Die Frage ist nur, ob das Ausschließen von Buchstaben etwas bringt, wenn man sie durch Einfügen doch hinein bekommt.

Ciao fkerber