掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
PanelのCaptionで複数行表示するには (ID:21332)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>私としては、ただ新規にコンポーネントを作成せずに既存のTPanelを >使用して複数行が実現出来ないかなーと… procedure TMyPanel.Paint; begin // 複数行Caption描画 end; procedure TForm1.ReplacePanel(var Panel: TPanel); var s: string; begin with TMyPanel.Create(Self) do begin Parent := Panel.Parent; Top := Panel.Top; Left := Panel.Left; Width := Panel.Width; Height := Panel.Height; s := Panel.Name; Panel.Free; Name := s; end; end; procedure TForm1.FormCreate(Sender: TObject); begin ReplacePanel(Panel1); ReplacePanel(Panel2); Panel1.Caption := '貼り付けてあったPanel1を'#13#10'TMyPanelと入れ換えたよ'; Panel2.Caption := '貼り付けてあったPanel2を'#13#10'TMyPanelと入れ換えたよ'; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.