像WORD這樣可以顯示回車、換行的效果該如何實作,如果是畫在memo上,請問有沒有什么例子代碼參考。
或有沒有可以實作該效果的控制元件介紹,謝謝。
uj5u.com熱心網友回復:
沒搞過這個,用特殊字符替換換行行不?是要搞電子病歷么?
uj5u.com熱心網友回復:
procedure TForm1.btn3Click(Sender: TObject);
var
i:integer;
begin
mmo1.Clear;
mmo1.Lines.Add('01');
mmo1.Lines.Add('02');
mmo1.Lines.Add('03');
i:=0;
while i<length(mmo1.Text) do
begin
if copy(mmo1.text,i,1)=#13 then
begin
mmo1.Text:=copy(mmo1.Text,1,i-1)+'┘'+copy(mmo1.Text,i,length(mmo1.Text));
i:=i+length('┘');
end;
i:=i+1;
end;
end;
uj5u.com熱心網友回復:
謝謝seleron的代碼,如果是用箭頭字符來顯示,那么讓游標不會被移動到 這個字符后面,該用什么事件來處理?uj5u.com熱心網友回復:
估計沒有這個事件吧
uj5u.com熱心網友回復:
繼續求解決方案轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/100385.html
標籤:VCL組件開發及應用
上一篇:串口通訊問題,請幫忙!
