BUTTONクリックで、DBCELL CLICKの内容を実行 (ID:37233)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなこと？ var SaveColumn: TColumn; procedure TForm3.Button1Click(Sender: TObject); begin if Assigned(SaveColumn) = True then begin end; end; procedure TForm3.DBGrid1CellClick(Column: TColumn); begin SaveColumn := Column; end; procedure TForm3.FormCreate(Sender: TObject); begin SaveColumn := nil; end;