Кнопочка в StringGrid

← →
killer © (2004-04-28 22:40) [0]

Добавляю кнопочку в ячейку StringGrid-а... она добавляется... все хорошо... но почему не работает событие по нажатию на нее?
Делаю я так:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure BitBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
with TBitBtn.Create(StringGrid1) do
begin
Parent:=StringGrid1;
BoundsRect:=StringGrid1.CellRect(4, 1);
OnClick:=BitBtnClick;
end;
end;

procedure TForm1.BitBtnClick(Sender: TObject);
begin
ShowMessage("Test");
end;

end.

← →
Гаврила © (2004-04-28 23:13) [1]

на первый взгляд, все правильно

← →
killer © (2004-04-28 23:17) [2]

я тоже так думаю......... :)))))))) Но не работает что то.......

сделал ShowMessage("Test"); на событие OnMouseUp... вроде заработало... а теперь как определить на какой строке была нажата кнопка?

Кнопочка в StringGrid Найти похожие ветки