[sorockinalex]

Блин, молчит и всё тут, вообще на неё не переходит..

Код:

procedure TFAddEquipment.EquipmentStringGridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  //Æèðíûé çàãîëîâîê
  if ARow=0 then    (Sender as TStringGrid).Canvas.Font.Style:=[fsBold]
  else    (Sender as TStringGrid).Canvas.Font.Style:=[];
  (Sender as TStringGrid).Canvas.TextOut(Rect.Left+2,Rect.Top+2,(Sender as TStringGrid).Cells[ACol,ARow]);
end;

Может из за этой процедурки? Хотя врядли, просто даже и не знаю что думать...

Код:

procedure TFAddEquipment.EquipmentStringGridClick(Sender: TObject);
begin
ShowMessage('EquipmentStringGridClick');
end;