我寫了以下的程式: memo1->Lines->Strings[0] = "我叫小禹,謝謝大家的關照\n"; 現在我想在小禹下面加個底線!我該如何才能辦到呢? 謝謝各位

小禹您好:  

引言:memo1->Lines->Strings[0] = "我叫小禹,謝謝大家的關照\n"; 現在我想在小禹下面加個底線!我該如何才能辦到呢?

試試下面的Code

 
 Memo1->Font->Style = TFontStyles()<< fsUnderline;
 Memo1->Lines->Strings[0] = "我叫小禹,謝謝大家的關照\n";
   

順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

部份內容裡加底線? I think using richedit is much more easier

BCB6.0裡的Memo沒有"部份"改變style的功能， 我以前做過類似的東西，是用RichEdit做的， 給妳參考一下:  

RichEdit1->Lines->Strings[0] = "我叫小禹,謝謝大家的關照\n";
  RichEdit1->SelStart=0;
  RichEdit1->SelLength= AnsiString(RichEdit1->Lines->Strings[0]).Length();
  RichEdit1->SelAttributes->Style = TFontStyles()<< fsUnderline;      RichEdit1->Lines->Strings[1] = "我叫小禹,謝謝大家的關照\n";
  RichEdit1->SelStart=AnsiString(RichEdit1->Lines->Strings[0]).Length();
  RichEdit1->SelLength= AnsiString(RichEdit1->Lines->Strings[1]).Length();
  RichEdit1->SelAttributes->Style = TFontStyles()<< fsBold;     

這會顯示一行「加底線」和一行「加粗」 是用SelStart和SelLength來抓範圍，再用SelAttributes來設定所抓的字串， 上行程式大概就在做這些事，請自己好好消化，變成自己的知識 國泰平安

我也用richedit做了一個例子給您參考看看

int iTemp = RichEdit1->Text.Pos("小禹");
RichEdit1->SelStart = iTemp-2;
RichEdit1->SelLength = 4;
RichEdit1->SelAttributes->Style = TFontStyles()<< fsUnderline;

發表人 - turboted 於 2003/06/13 09:57:15

問題以解決 謝謝 同時用到gemi0305與turboted的方法 不過turboted的積分已很高 所以給gemi0305囉