blank line after every line 1

[earlrainer]

Hi,

I have a memo box on the form (you can also consider a rich edit box).

I want that when the user types in the memo box , that automatically a blank line is added after every line i.e it gives an effect of a double spaced letter.

I wrote on key down event that if key = 13 then memo1.lines.add('') but this adds a line at the bottom of the memo and does not allow me to enter a carriage retun in between of the memo box

how can i program this ?

 

[LucieLastic]

hi

Hope this is helpful:

Just had a quick look at the help about using SelText and it says
" If there is no selection, but the edit control has focus, set SelText to insert a new string into the text at the cursor."

Sorry, I've never use SelText like this before.

lou

 

[earlrainer]

Weez,
Thanks once again..it works

 

[earlrainer]

Hi Weez,

just thought I'd share this with you..got it from another forum..works as well

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
RichEdit1.Perform(WM_CHAR, 13, 0);
end;

 

[LucieLastic]

hi

Thanks earlrainer, that's useful to know.

cheers
lou