StringGrid

[marwell.]

доброго времени суток
есть StringGrid, в одной из ячеек которого сидит ComboBox (но это не суть). В общем надо чтобы при ручном изменении значения одной из двух ячеек, пересчитывалось по известной формуле значение третьей ячейки. Пытался сделать так:при начале редактирования ячейки запоминаю координаты и старое значение, потом при получении фокуса ввода другой ячейкой пересчитываю новое значение. Но этот способ почему то не работает вот кусок кода:

procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
ARow: Integer; var Value: String);
begin
EditCol:=ACol;
EditRow:=ARow;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var price, procent: real;
begin
if StringGrid1.Cells[EditCol, EditRow]<>'' then begin
price:=StrToFloat(StringGrid1.Cells[1, EditRow]);
procent:=StrToFloat(StringGrid1.Cells[2, EditRow]);
StringGrid1.Cells[3,EditRow]:=FloatToStr(price+price*procent/100);
end;
end;

procedure TForm1.StringGrid1Exit(Sender: TObject);
var price, procent: real;
begin
if StringGrid1.Cells[EditCol, EditRow]<>'' then begin
price:=StrToFloat(StringGrid1.Cells[1, EditRow]);
procent:=StrToFloat(StringGrid1.Cells[2, EditRow]);
StringGrid1.Cells[3,EditRow]:=FloatToStr(price+price*procent/100);
end;
end;

буду благодарен любому совету

[Willer55]

Я такое как то раз делал, но я вешал процедуру обработки данных, на событие OnChange ComboBox'а, и получал номер ячейки на событии OnSelectCell у StringGrid'a.
Примера кода нету извини, давно это было.

[volvo877]

есть StringGrid, в одной из ячеек которого сидит ComboBox (но это не суть).

Это как раз и суть. У тебя на OnSelectCell было повешено выяснение, не надо ли отображать в выбраной ячейке ComboBox, откуда теперь взялся другой обработчик?

Проверяй, отрабатывает ли вообще OnSelectCell...

[Serge_Bliznykov]

а почему бы не вычислять прямо на событии изменения текста ячейки?
вот так:

procedure TForm1.Calculate(EditCol, EditRow: Integer);
var price, procent: real;
begin
if StringGrid1.Cells[EditCol, EditRow]<>'' then begin
   try
     price:=StrToFloat(StringGrid1.Cells[1, EditRow]);
     procent:=StrToFloat(StringGrid1.Cells[2, EditRow]);
     StringGrid1.Cells[3,EditRow]:=FloatToStr(price+price*procent/100);
  except
     StringGrid1.Cells[3,EditRow] := '0.00';
  end; 
end;
end;

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
begin
  Calculate(ACol, ARow)
end;