Delphi Richedit 的簡單問題

使用 opendialog 控制項。

我把它寫在乙個按鈕裡。

procedure : tobject);

varstrlist: tstringlist;字串陣列。

i: integer;

beginif then

i:= 0;

strlist:= ;

而我<對陣列做。

i:= i + 1;

end;end;

初學者最好自己練習，對吧？

如果字串 A b 的長度不超過 richedit 的寬度，則只要單獨新增即可在一行中輸出它們。

對於顏色，可以選擇一條線，然後修改所選文字的屬性。

procedure : tobject);

var{}i,m,k:integer;

a,b:string;

begina:='cxzcxcxcx';

b:='cvbcbvcxbvcb';;;

m:=1;修改第 2 行的屬性。

k:=0;for i:=0 to m-1 do

k:=k+length(;行尾字元的長度為 2：=k;

length(;

clred;希望的顏色。

end;

換行符：a + 13 + b

顏色：為了給你乙個想法，richedit 只能改變所選字串的顏色，重點是使用 sellength、selstart 和 selattributes。

RTF 和 Word 不可能不完全相容，它們是兩種不同的富文字。

將 Word 儲存為 Guess RTF 會丟失大量格式。

:=clred;

就是把richedit的選定部分變成紅色，如果是聊天工具，收到訊息可以這樣寫：=length（;

您收到的訊息;

length（您收到的訊息）;

clred;

sendmessage 帶有乙個返回值，看看 msdn，關於 em scroll，它的返回值字的低位是滾動次數，正如你提到的，一旦傳送訊息，滾動一次，到底部它返回滾動 0 次，程式 ** 示例如下：

varn : integer;

n := sendmessage...

if n and $ffff = 0 thenshowmessage( '寫在最後' );

或者如果 longrec（n）。words[0] = 0 then

showmessage...