如何改變TRichEdit某區間的顏色 |
答題得分者是:Zard
|
mnsf
初階會員 發表:104 回覆:90 積分:48 註冊:2003-11-25 發送簡訊給我 |
|
Zard
尊榮會員 發表:24 回覆:396 積分:539 註冊:2003-11-26 發送簡訊給我 |
引言: 各位大大好,我的問題如下: 假設有一個RichEdit1,它的內容如下,共有六行 aaaaaaaaa bbbbbbbbb ccccccccc ddddddddd eeeeeeeee fffffffff 請問要怎麼做才可以讓第一行到第三行變字型的顏色? procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // 選取1 ~ 3行 with RichEdit1 do begin SelStart := 0; for i := 0 to 2 do begin SelLength := SelLength StrLen(PChar(Lines.Strings[i])) 2; end; end; // 改變選取的顏色. with RichEdit1.SelAttributes do begin Color := clRed; end; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |