Zitat von
thepaine91:
( Wie kamst du auf die 127 ) ?
Nachdem ich bei STRG-BACKSPACE nie beim Breakpoint (if Key = #8) ankam, hab ich mir mal den Keywert in einem Label ausgeben lassen
[edit] Neue Idee:
Delphi-Quellcode:
procedure TDeinForm.DeinEditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #127 then
begin
(Sender as TEdit).Perform(WM_KEYDOWN,VK_CONTROL,0);
(Sender as TEdit).Perform(WM_KEYDOWN,VK_SHIFT,0);
(Sender as TEdit).Perform(WM_KEYDOWN,VK_LEFT,0);
(Sender as TEdit).Perform(WM_KEYDOWN,VK_DELETE,0);
(Sender as TEdit).Perform(WM_KEYUP,VK_CONTROL,0);
(Sender as TEdit).Perform(WM_KEYUP,VK_SHIFT,0);
(Sender as TEdit).Perform(WM_KEYUP,VK_LEFT,0);
(Sender as TEdit).Perform(WM_KEYUP,VK_DELETE,0);
Key := #8;
end;
end;
[/edit]
[edit2] OK, vergessen wir die Idee, da wird zuviel gelöscht [/edit2]