QRMemo 最佳折行函數

發文回覆瀏覽次數：2326

推到 Plurk!

推到 Facebook!

tgho
一般會員

發表：3
回覆：14
積分：8
註冊：2003-03-18

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-07-04 20:26:09

IP:211.76.xxx.xxx 訂閱

procedure StrToMemo(sTmp:String;Var Sender:TQRMemo;iWidth:Integer);
// sTmp:要放入qrmemo的字串 Sender: Qrmemo 元件 iWidth: 折行寬度
Var
qrRT:TQRRichText;
qrMO:TQRMemo;
i:Integer;
begin
qrMO:=TQRMemo(Sender);
qrRT:=TQRRichText.Create(qrMO.Owner);
qrRT.Parent:=qrMO.Parent;
qrRT.AutoStretch:=True;
qrRT.Width:=iWidth-20;
qrRT.Lines.Text:=sTmp;
qrMO.Lines.Clear;
for i:=0 to qrRT.Lines.Count-1 do qrMO.Lines.Add(qrRT.Lines[i]);
FreeAndNil(qrRT);
end;<textarea class="delphi" rows="10" cols="60" name="code"> 請在此區域輸入程式碼 </textarea>

系統時間：2024-07-06 20:12:52

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！