TMS String Grid mit Button in einer Spalte

[hoika]

Hallo,
hast du nicht die Quellen?

Delphi-Quellcode:

procedure TForm115.SGButtonClick(Sender: TObject; ACol, ARow: Integer);
begin
  SG.PushButton(ACol,ARow,True);

  MessageBox(0,'','',0);

  SG.PushButton(ACol,ARow,False);
end;