掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
決まった処理を使い回しするには？ (ID:3583)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ポップアップメニューで「タイトルバー非表示」「縦型スタイル」など、見た目を変更する項目を作ってあります。 これらの見た目変更を全て１つの処理で全部使い回しできるようにしたいと思い、処理内容は書けたのですが、それを呼び出す方法がわからず、こちらに質問させて頂きました。 procedure MainForm.pumBsNoneClick(Sender: TObject); begin pumBsNone.Checked := not pumBsNone.Checked; HyoujiChange; end; procedure MainForm.ViewChangeClick(Sender: TObject); begin ViewChange.Checked := not ViewChange.Checked; HyoujiChange; end; procedure HyoujiChange; begin if pumBsNone.Checked = True then MainForm.ClientHeight := ***; MainForm.ClientWidth := ***; PageControl1.Height := ***; PageControl1.Width := ***; else MainForm.ClientHeight := ***; MainForm.ClientWidth := ***; PageControl1.Height := ***; PageControl1.Width := ***; (略) end; という感じで呼び出したいのです。 言葉足らずで申し訳ありませんでした。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.