Код:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
edit1.SelStart:=length(edit1.Text)+1;
end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
edit1.SelStart:=length(edit1.Text)+1;
end; |