[Neorlin]

подскажите плз как определить индекс нажатой клавиши. Тоесть мне нужно, чтоб при нажатии на созданую кнопку ее визибл менялся на фолс.
вот код создания кнопок:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to 10 do
       for j:=1 to 10 do
         begin
           k:=(i-1)*4+j;
           knopka[k]:=TButton.Create(self);
           knopka[k].Parent :=stringgrid1;
           knopka[k].OnMouseDown:=button1.OnMouseDown;
           knopka[k].Width:=49;
           knopka[k].Left:=(j-1)*50;
           knopka[k].Top :=(i-1)*50;
           knopka[k].Height :=49;
           end;

end;

вот код онмаусдаун:

Код:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i,j,n:integer;
begin
p:=p+1;
label1.Caption:='сделанных ходов '+inttostr(p);
end;

заранее спасибо за помощь

[v1s2222]

Код:

...
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i,j,n:integer;
begin
p:=p+1;
label1.Caption:='сделанных ходов '+inttostr(p);

  TButton(Sender).Visible := False; // если ты это хотел...
end;

[Neorlin]

Сообщение от v1s2222

Код:

...
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i,j,n:integer;
begin
p:=p+1;
label1.Caption:='сделанных ходов '+inttostr(p);

  TButton(Sender).Visible := False; // если ты это хотел...
end;

АААААААААААААА СПАСИБА ОГРОМНОЕ!!!!!!!!!!!!!