[rower]

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

[poli-smen]

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

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

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

[NumLock]

Код:

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

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

Код:

Random(100)

[Alegun]

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

Код:

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 и подключите процедуры клика по нему и создания формы