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

解決

es 2005-12-10 01:04:21 No: 19164

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

ResEs 2005-12-10 01:34:04 No: 19165

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-10 03:45:38 No: 19166

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