Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
8. Dez 2009
Ich hab noch einmal nachgesehen, wie sich ein RichEdit verhält und bin nun hier angekommen:
function TForm1.LastWordPos(const Src: string; Start: integer): integer;
var i: integer;
begin
Result := 0;
if Length(Src) > 0 then
begin
if Start > Length(Src) then
Start := Length(Src);
i := Start;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
8. Dez 2009
Nachdem ich bei STRG-BACKSPACE nie beim Breakpoint (if Key = #8) ankam, hab ich mir mal den Keywert in einem Label ausgeben lassen :zwinker:
Neue Idee: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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
8. Dez 2009
Vielleicht hab ich zu simpel gedacht, aber wie wäre es so?procedure TDeinForm.DeinEditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #127 then
Key := #8;
end;