Like WORD can show a carriage return, how to achieve the effect of a new line, if is to draw on the memo, could you tell me do you have any reference example code,

Or do you have information can achieve the effect of controls, thank you,

CodePudding user response:

Didn't do this, replace with special characters in line do not?
Is to make electronic medical records?

CodePudding user response:

 
Procedure TForm1. Btn3Click (Sender: TObject); 
Var 
I: integer; 
The begin 
Mmo1. The Clear; 
Mmo1. Lines. The Add (' 01); 
Mmo1. Lines. The Add (' 02 '); 
Mmo1. Lines. The Add (' 3 '); 

I:=0; 
While iThe begin 
If the copy (mmo1. Text, I, 1)=# 13 then 
The begin 
Mmo1. Text:=copy (mmo1. Text, 1, I - 1) + '┘' + copy (mmo1. The Text, I, length (mmo1. Text)); 
I:=I + length (' ┘); 
end; 
I:=I + 1; 
end; 
end; 

CodePudding user response:

Thanks for seleron code, if it is used to display a arrow character, then let the cursor will not be moved to behind the character, what events to handle?

CodePudding user response:

reference k39k39 reply: 3/f

thank seleron code, if it is to use the arrow characters to display, then let the cursor will not be moved to behind the character, what events to handle?

Estimates have no this event

CodePudding user response:

Continue to seek solutions