掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メッセージの色 (ID:34768)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
CreateMessageDialogはこんな感じで使用できます。 参考までに・・・ var MsgDlg : TForm; DlgType: TMsgDlgType; i: Byte; begin DlgType := mtInformation; MsgDlg := CreateMessageDialog('かきくけこ', DlgType, [mbOK]); with MsgDlg do begin try Caption := 'あいうえお'; TButton(Components[2]).Caption := 'おーけー'; for i := 0 to ComponentCount - 1 do begin if Components[i] is TLabel then begin (Components[i] as TLabel).WordWrap := False; with (Components[i] as TLabel).Font do begin Charset := DEFAULT_CHARSET; Color := clRed; Size := 10; end; Break; end; end; ShowModal; finally Free; end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.