請問要如何讓RadioGroup的某些選項的字顏色不同 |
尚未結案
|
Elaine1981
一般會員 發表:18 回覆:21 積分:7 註冊:2004-08-21 發送簡訊給我 |
|
Zard
尊榮會員 發表:24 回覆:396 積分:539 註冊:2003-11-26 發送簡訊給我 |
引言: 請問要如何讓RadioGroup的某些選項的字顏色不同,也就是說假設我要讓RadioGroup1的第一個和第二個選項顏色為淡藍色,第三個和第四個選項顏色為黃色,請問要怎麼做呢?謝謝!顏色部份請自行調整.. < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=19905248&CC=445172"> procedure TForm1.Button1Click(Sender: TObject); var i: Integer; NewFont: TFont; begin // 產生新字體 NewFont := TFont.Create; try // 複製原來的字體屬性. 只修改字體顏色. NewFont.Assign(RadioGroup1.Font); for i := 0 to RadioGroup1.ControlCount - 1 do begin if i in [0, 1] then // 把第1, 2個顏色設為淡藍色 NewFont.Color := RGB(100, 100, 255) else if i in [2, 3] then // 把第3, 4個顏色設為黃色 NewFont.Color := RGB(255, 255, 0) else // 其它則使用原始顏色 NewFont.Color := RadioGroup1.Font.Color; // 設定新字型. RadioGroup1.Controls[i].Perform(CM_PARENTFONTCHANGED, 1, LongInt(NewFont)); end; finally NewFont.Free; end; end;發表人 - zard 於 2005/01/15 21:26:16 發表人 - zard 於 2005/01/15 23:00:48 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |