掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メッセージの色 (ID：34770)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
const msg1 ='か'; msg2 ='き'; var Dlg :TForm; Lbl :TLabel; i :Integer; begin Dlg :=CreateMessageDialog(msg1, mtInformation, [MBOK]); with Dlg do begin try for i :=0 to ComponentCount -1 do if Components[i] is TLabel then begin Lbl :=Components[i] as TLabel; Lbl.AutoSize :=True; Lbl.WordWrap :=False; Lbl.Font.Color :=clRed; Break; end; with TLabel.Create(Dlg) do begin Parent :=Dlg; Left :=Lbl.Left + Lbl.Width; Top :=Lbl.Top; Caption :=msg2; Font.Color :=clBlue; end; ShowModal; finally Free; end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.