請問我要如何將1111-2222-3333-4444 設定成不同的顏色呢?    我改了好久，都改不出來...    請各位大大的支持... 謝謝。 發表人 - andy0412 於 2005/03/10 15:08:01

你好 應該是直接設定combox的屬性font就可以了吧!! Pillar Wang

------
Pillar Wang

引言: 你好 應該是直接設定combox的屬性font就可以了吧!! Pillar Wang

我試了~~ 從combox裡設定，就會變成一種顏色...

你好 試試看

  if ComboBox1.Text = '1111-2222-3333-4444' then
    ComboBox1.Font.Color := clRed
  else
    ComboBox1.Font.Color := clGreen;

Pillar Wang

------
Pillar Wang

引言: 你好 試試看

  if ComboBox1.Text = '1111-2222-3333-4444' then
    ComboBox1.Font.Color := clRed
  else
    ComboBox1.Font.Color := clGreen;

Pillar Wang

Dear Pillar Wang ~ ^_^ 請問我要如何將1111-2222-3333-4444 設定成不同的顏色呢? 我指的意思是將1111-2222-3333-4444 1111(1-4位)，設定成紅色 2222(6-9位)，設定成藍色 3333(11-14位)，設定成黃色 4444(16-19位)，設定成綠色..

我想你是希望1,2,3,4均出現不同的顏色。 在OnDrawItem裡可以自己以Canvas的方式繪製。 包含Canvas.TextWidth, Canvas.TextHeight, Canvas.TextOut..你可以自己算位置達到你要的目的, 但是如果你是使用TComboBox.Style是可編輯的模式的話, 一旦TComboBox進入編輯模式, 裡頭的文字顯示就不是我們能控制的。

http://delphi.ktop.com.tw/topic.php?topic_id=60598 http://delphi.ktop.com.tw/topic.php?topic_id=22912 http://delphi.ktop.com.tw/topic.php?topic_id=59398

1. 設定 Combobox 的 style 屬性為 csOwnerDrawFixed 2. 在 onDrawItem 的事件中去畫

 
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  With ComboBox1 do
  begin
    Canvas.FillRect(Rect);
    
    Canvas.Font.Color := clLime;
    Canvas.TextOut(Rect.Left,Rect.Top,leftstr(ComboBox1.Items[Index],5));        Canvas.Font.Color := clRed;
    Canvas.TextOut(Rect.Left+70,Rect.Top,RightStr(ComboBox1.Items[Index],5));
  end;       end; 

引言: 1. 設定 Combobox 的 style 屬性為 csOwnerDrawFixed 2. 在 onDrawItem 的事件中去畫

 
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  With ComboBox1 do
  begin
    Canvas.FillRect(Rect);
    
    Canvas.Font.Color := clLime;
    Canvas.TextOut(Rect.Left,Rect.Top,leftstr(ComboBox1.Items[Index],5));        Canvas.Font.Color := clRed;
    Canvas.TextOut(Rect.Left+70,Rect.Top,RightStr(ComboBox1.Items[Index],5));
  end;       end; 

Canvas.TextOut(Rect.Left,Rect.Top,leftstr(ComboBox1.Items[Index],5)); 沒法用耶 要用 Canvas.TextOut(Rect.Left,Rect.Top,copy(ComboBox1.Items[Index],5));

    uses StrUtils    ------    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls ,StrUtils;