Цитата:
|
Сообщение от v1s2222
Код:
1 2 3 4 5 6 7 8 9 10 11 | ...
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);
<font color="Red"> TButton(Sender).Visible := False;</font>
end;
|
|
АААААААААААААА СПАСИБА ОГРОМНОЕ!!!!!!!!!!!!!
21.02.2011, 22:13
Древовидный вид