掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
孫フォームからのクラスの呼び出しについて (ID:39702)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなのを作って unit Unit1; interface uses Forms,Grids; type TForm = class(Forms.TForm) public StringGrid: TStringGrid; end; implementation end. 子・孫の uses 上 Forms の後ろに登録し、 子で procedure TKForm1.FormCreate(Sender: TObject); begin StringGrid := StringGrid1; end; procedure TKForm2.FormCreate(Sender: TObject); begin StringGrid := StringGrid1; end; としておけば 孫から procedure TMForm1.Button1Click(Sender: TObject); begin TForm(Owner).StringGrid.Cells[1,1] := 'AAA'; end; こんな感じでアクセスできる
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.