掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ポップアップでEditに文字を書く込むには (ID：30261)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは ひとつは PopupItem_Addという処理を TForm1に持たせるか、持たせないか ということを理解されると 一段階レベルアップすると思います。 もう一つは (Sender: TObject)は必ず付けなければならない ものでもないので適宜選んでください。 もうひとつは procedure TForm1.MenuItem1Click(Sender: TObject); begin Form1.LabeledEdit4.Text := PopupMenu1.newMenuItem.Caption; end; この場合のForm1はSelfと同じなので Self.LabeledEdit4.Text := ... とするか、Selfを省略する方が綺麗なコードになります。 SelfやSenderについてより調べると上達しますよ。 がんばってください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.