ステータスバーのフォント色を変えるには

解決

es  2005-12-09 16:04:21  No: 19164  IP: 192.*.*.*

現在、SimpleTextプロパティにユーザーへの
メッセージを表示しているのですが、この文字の
フォント色を変える方法があったら教えてください。
お願いします。

編集 削除
ResEs  2005-12-09 16:34:04  No: 19165  IP: 192.*.*.*

StatusPanels を１つ作成し、その Style プロパティを psOwnerDraw
に設定して・・・

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
begin
  with StatusBar1.Canvas do begin
    Font.Color := StatusBar1.Font.Color;
    TextOut(Rect.left, Rect.top, StatusBar1.SimpleText);
  end;
end;

編集 削除
es  2005-12-09 18:45:38  No: 19166  IP: 192.*.*.*

提示いただいた方法でうまくいきました。
解決とさせていただきます。
ありがとうございました。

編集 削除