StringGrid проблема

[Death_moroZ]

Здравствуйте у меня проблема с компонентом StringGrid

Я пишу программу напоминалку и чтобы было удобно храню все данные в этом компоненте, через него же я и проверяю наступило ли событие:

procedure TForm1.tmr1Timer(Sender: TObject);
var
  tp,td:string;
  i,j,temp:Integer;
begin
  tp:=TimeToStr(Time);
  td:=DateToStr(Date);
  for i:=0 to index-1 do
  if (strngrd1.Cells[1,i]=tp) and (strngrd1.Cells[2,i]=td) then 
  begin
      ShowMessage(strngrd1.Cells[3,i]);
  end;
end;

По клику на строку мне надо подставить 4 поля над строками в Гриде И внести туда значения ячеек для редактирования задания:

procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    dtp3.Date:=StrToDate(strngrd1.Cells[1,ARow]);
    dtp4.Date:=StrToDate(strngrd1.Cells[2,ARow]);
  end;
end;

Но получается что таймер тоже кликает а цифры (номер строки) нет и получается программа пытается ничему подставить ячейки и занести информацию в них из ничего, что приводит к ошибкам.
Есть ли способ обойти это?

[Vervolf]

ну, на время ввода данных, отключай таймер просто.. после ввода -включай.

[Death_moroZ]

Ну дак проблема не во время ввода, всегда, ведь таймер как бы кликает по гриду, а во время клика мы узнаём строку которую мы редактировали, и получается фигня

[evg_m]

интересный вопрос а зачем во время рисования

procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

вы считываете текущую ячейку во внешнюю (по отношению к данной процедуре).

begin
  if (gdFocused in State) then
  begin
    dtp3.Date:=StrToDate(strngrd1.Cells[1,ARow]);
    dtp4.Date:=StrToDate(strngrd1.Cells[2,ARow]);
  end;

кажется наконец-то понял!

По клику на строку мне надо подставить 4 поля над строками в Гриде

для этого есть и другие события окромя OnDrawCell. OnDblClick к примеру.

Но получается что таймер тоже кликает а цифры (номер строки)

Он не кликает он записывает туда новые данные а программа честно пытается их вывести(нарисовать). при рисовании неизбежно (OnDrawCell)

программа пытается ничему подставить ячейки и занести информацию в них из ничего, что приводит к ошибкам.

А вы не думая тащите эти данные в поля редактирования.(OnDrawCell).

Есть ли способ обойти это?

Смотри выше (есть и другие события).

[Death_moroZ]

Ы я нуб как в OnDblClick ARow? И так далее

[evg_m]

procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
  focusrow, focuscol: integer;
begin
  focusrow:=StringGrid1.Row;
  focuscol:=StringGrid1.Col;
  showmeesage(StringGrid1.Cells[focusrow, focuscol]);
end;

[Death_moroZ]

Спасибо помогло