[rower]

Помогите пожалуйста..
Как сделать, чтобы при нажатии мышью по клетчатому полю появлялась цифра от одного и до 100???

[poli-smen]

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

Как сделать, чтобы при нажатии мышью по клетчатому полю появлялась цифра от одного и до 100???

По какому клетчатому полю? И где должна появиться цифра?

[NumLock]

Код:

1	ShowMessage(IntToStr(Random(100)+1));

[M.A.D.M.A.N.]

Код:

1	Random(100)

[Alegun]

Похоже под "клетчатым полем" подразумевался стрингрид, тогда код будет примерно такой:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.StringGrid1MouseDown(Sender: TObject;   Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var  C, R : integer; begin  StringGrid1.MouseToCell(X, Y, C, R);  StringGrid1.Cells[C, R]:= IntToStr(Random(100)+1); end;   procedure TForm1.FormCreate(Sender: TObject); begin  with StringGrid1 do   begin;    FixedCols:= 0;    FixedRows:= 0;    ColCount:= 10;    RowCount:= 10;    DefaultColWidth:=  25;    DefaultRowHeight:= 25;   end;  Randomize; end;

бросьте на форму StringGrid и подключите процедуры клика по нему и создания формы