Also ich habe für mein kleines Umrecnungsprogramm eine Eingabebschränkung programmiert, die z.B. so aussieht:
Delphi-Quellcode:
procedure TForm2.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
If not(key in [#48..#57,#65..#70,#97..#102,#8]) then
begin
beep;
key := #0;
end;
end;
Um dann aber copy und paste zu ermöglichen habe ich im onkeyup folgendes geschrieben:
Delphi-Quellcode:
procedure TForm2.Memo2KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl]) then
begin
if (Key = 67) then
memo2.CopyToClipboard
else if (Key = 118) then
memo2.PasteFromClipboard;
end;
end;
Copy geht ganz ohne Probleme, aber paste will nicht. Das gleiche tritt auch bei edits auf.
Weiß da jemand weiter?
Gruß
Jan
[edit=Daniel B]Delphi-Tags hinzugefügt. Jan, bitte [ delphi] anstatt [ code] benutzen! Danke! MfG Daniel B.[/edit]