請問各位! 我要做一個功能 ListBox(或FlieListBox)內有不定的檔案資料, 我用一個迴圈來讀取內部每一個item, 當讀取第一個item時, 在listbox方框內的第一個itemlist要呈現藍底白字(反白)的標示, 進行要第二個時就在第二個itemlist顯示反白, 同時第一個即回復到標準, 依此類推到最後一個, 但要考慮可能10個或20個 所以要能自動捲動, 這樣的功能, 是否有網友有設計的經驗可以提供 謝謝!

如下的可以嗎？ 首先將 ListBox1 的 Style 屬性設為 lbOwnerDrawFixed

var CurrIndex: Integer = 0; // 現在的 ListBox1 的 ItemIndex 值
   
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if Index = CurrIndex then begin
    ListBox1.Canvas.Brush.Color := clBlue;
    ListBox1.Canvas.Font.Color := clWhite;
    ListBox1.Canvas.FillRect(Rect);
  end else begin
    ListBox1.Canvas.Brush.Color := clWhite;
    ListBox1.Canvas.Font.Color := clBlack;
    ListBox1.Canvas.FillRect(Rect);
  end;
  ListBox1.Canvas.TextOut(Rect.Left 2, Rect.Top 2, ListBox1.Items[Index]);
end;
   
procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(CurrIndex); // 這裏改變了 ListBox1 的 ItemIndex 值
  if CurrIndex = ListBox1.Items.Count then
    CurrIndex := 0;
  ListBox1.Repaint; // 重繪 ListBox1
end;

-- Everything I say is a lie. 發表人 - hagar 於 2002/10/01 07:39:51

只要改變listbox之itemindex就自然會反白,超過範圍也會自動捲動 試試這個

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to listbox1.Items.Count -1 do begin
    listbox1.ItemIndex:=i;
    sleep(1000);
  end;
end;

前輩出手就是不一樣 真是見醜了! :) -- Everything I say is a lie.

感謝兩位版主的指導, 我試作了 hager 版主的功能的確可以做到我想要的功能, 然後我再試作 ccchen 版主的寫法, 發生了一點點的小問題, 就是指標的確可以往下移動, 但是僅是一個方框往下而不是反白, 然後我用一個小ap(只建一個ListBox與Button)實作, 可以反白往下沒有問題, 我不知道是那邊有疏忽掉, 以下是我部份程式, ps:我的ListBox是由一個TFileListBox用drop方式把檔案拖到該ListBox內, 動態建立 ListBox的 Item    

     for i:= 0 to lbxComb.Items.Count-1 do begin
         lbxComb.SetFocus;
         lbxComb.ItemIndex:= i;
         lbxComb.Repaint; -->此行我試過 update, reflesh 都一樣
         Application.ProcessMessages;
         try
            dFile:= Label_Comb.Caption '\' lbxComb.Items.Strings[i];
            label_Combmsg.Caption:= '現正合併 ' dFile;
            label_Combmsg.Update;
            if ExtractFileExt(dFile)='.DBF' then begin
               Table_Comb.Close;
               Table_Comb.DatabaseName:= ExtractFilePath(dFile);
               Table_Comb.TableType:= ttDbase;
               Table_Comb.TableName:= ExtractFileName(dFile);
               Table_Comb.Exclusive:= True;
            end
            else begin
               Table_Comb.Close;
               Table_Comb.DatabaseName:= ExtractFilePath(dFile);
               Table_Comb.TableType:= ttParadox;
               Table_Comb.TableName:= ExtractFileName(dFile);
               Table_Comb.Exclusive:= True;
            end;                // 開始轉資料
            if rbtnAppend.Checked then BatchMove1.Mode:= batAppend
            else BatchMove1.Mode:= batAppendUpdate;
            BatchMove1.Execute;
         except
         end;
     end;