Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject); var b:TButton; begin b := TButton.Create(self); b.Parent := StringGrid1; b.BoundsRect := StringGrid1.CellRect(2,3); b.OnClick := Button1Click; end;
procedure TForm1.FormCreate(Sender: TObject); var b:TButton; begin b := TButton.Create(self); b.Parent := StringGrid1; b.BoundsRect := StringGrid1.CellRect(2,3); b.OnClick := Button1Click; end;