孫フォームからのクラスの呼び出しについて (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; こんな感じでアクセスできる