[Edinora]

Столкнулась с интересной проблемой.
Есть форма с StringGrid, При нажатии ячейки я ввожу туда
значения в виде (счет1) : (счет2). Делала я это с помощью TMaskEdit. И все работало:

Код:

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

procedure TForm2.MaskEdit1Change(Sender: TObject); begin StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:=MaskEdit1.Text; end;   procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); begin MaskEdit1.Visible := false;  if (gdFocused in State) then     begin       if (ACol<>ARow) then         begin           MaskEdit1.Visible := true;           MaskEdit1.Text:=StringGrid1.Cells[ACol, ARow];           MaskEdit1.Left := Rect.Left + StringGrid1.Left+2;           MaskEdit1.Top := Rect.Top + StringGrid1.top+2;           MaskEdit1.Width := Rect.Right - Rect.Left;           MaskEdit1.Height := Rect.Bottom - Rect.Top;          exit;        end;     end; end;

Но для полной красоты мне не хватало указания времени когда проходила игра. Я решила добавить форму в которую записывались результаты и время. Добавила кнопку и прописала в ней событие открытия формы, но выкидывалась ошибка и я решила сначала сделать с помощью Message. С ним тоже проблем не возникло.

Код:

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

procedure TForm2.StringGrid1Click(Sender: TObject); begin bt:=true; end;   procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); begin if (bt=true) then //добавила, что бы срабатывало 1 раз после клика Begin  if (gdFocused in State) then     begin       if (ACol<>ARow) then         begin          bt:=false;          ShowMessage('llllll');          exit;        end;     end;  end; end;

А вот если заменить Message на вызов формы - возникают проблемы.
Запустить форму как Form.ShowModal, не выходит, только как просто Form.Show. Форма запускается, но открывается на всю форму в которой прописан StringGrid и не поддается редактированию. Закрыть ее тоже не удается. Фактически программа виснет.

Код:

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

procedure TForm2.btn3Click(Sender: TObject); begin   bt:=True;   if (not Assigned(Form4)) then       Form4:=TForm4.Create(Self);       Form4.Show; end;   procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); begin if (bt=true) then Begin  if (gdFocused in State) then     begin       if (ACol<>ARow) then         begin          bt:=false;          btn3.Click;          exit;        end;     end;  end; end;

Подскажите как это исправить

[icsander]

Попробуй так:

Код:

1 2 3 4 5 6 7

procedure TForm2.btn3Click(Sender: TObject); begin   bt:=True;   if (not Assigned(Form4)) then      Application.CreateForm(TForm4, Form4);//  <-----       Form4.Show; end;

<if (bt=true) then> = <if bt then>
<exit;> - лишнее

[Edinora]

Вообще никак не реагирует. Предлагает просто ввод в ячейку, форму не вызывает.

[icsander]

Ну вообще вызов модальной формы в DrawCell не очень хорошая идея. Лучше перенести ее в StringGridDblClick либо в StringGridClick (не совсем удобно выделить ячейку или строку).

Код:

1 2 3 4 5 6 7 8

procedure TForm2.StringGridDblClick(Sender: TObject); begin Application.CreateForm(TForm4, Form4); Form4.Edit1.Text:=StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];//На Form4 есть Edit1, ему и передаем значение ячейки Form4.ShowModal; StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:=Form4.Edit1.Text;//Новый текст в ячейку Form4.Free;//Убиваем форму end;

Если попроще, то примерно так.

[Edinora]

Нет, все-таки реагирует, но так же как и в предыдущем случае.

[icsander]

Подробнее опишите, что и как реагирует.
И если можно выложите весь проект (в архиве).

[Edinora]

Если пишу просто Form.show ошибка та же.

[icsander]

Ну так надо ShowModal. По Show форма сразу и закрывается, если смотреть по коду.

[Edinora]

Все, разобралась. Спасибо большое за подсказки они очень помогли!!!
я в последнем случае ошибку сделала, не в тот метод добавила.
Кидаю рабочий код, вдруг кому-то еще надо будет
_sg1 - StringGrid
bt - проверка, что бы каждый раз при перерисовке форма не вызывалась

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

var   Form1: TForm1;   bt:Boolean=false;   implementation   uses Unit2;   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); var num,d,i: Integer; begin   num:=1;   DoubleBuffered:=true;     with Form1._sg1 do   begin     num:=15;    if (num>0) then    begin      if (num>2)then      begin      RowCount:=num+1;      ColCount:=num+1;      end;        d:= trunc((Width-20)/(num+1));     for i:=0 to num do       begin         Cells[0,i]:=IntToStr(i);         Cells[i,0]:=IntToStr(i);         ColWidths[i]:=d;       end;    end;   end; end;   procedure TForm1._sg1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); var  br:TBrush;      acc,arr:Integer; begin    if (ACol=ARow) then     begin       _sg1.Canvas.Brush.Color:=clRed;       _sg1.Canvas.FillRect(Rect);     end;   if (bt = true) then begin  if (gdFocused in State) then     begin       if (ACol<>ARow) then         begin          bt:=false;         // ShowMessage('llllll');        end;       end;  end; end;     procedure TForm1._sg1Click(Sender: TObject); begin    bt:= True;    Application.CreateForm(TForm2, Form2);    Form2.Edt1.Text:=_sg1.Cells[_sg1.Col, _sg1.Row];    Form2.ShowModal;    _sg1.Cells[_sg1.Col, _sg1.Row]:=Form2.Edt1.Text;     Form2.Free; end;

Огромадное СПАСИБО всем тем, кто помог в решении данного вопроса.

[icsander]

А с какого перепуга форма будет вызываться при перерисовке грида ???

[Edinora]

Она будет вызываться 1 раз при клике на грид. Если не прописать условие bt, то форма будет вызываться при каждой перерисовке формы - отлично видно в примере message.

[icsander]

Код

Код:

1 2 3 4 5 6 7 8 9 10 11 12

if (bt = true) then begin  if (gdFocused in State) then     begin       if (ACol<>ARow) then         begin          bt:=false;         // ShowMessage('llllll');        end;       end;  end; end;

вообще лишний.
<bt> - не при делах.
Форма вызывается только при клике на ячейке грида (procedure TForm1._sg1Click(Sender: TObject).
ShowMessage('llllll'); - да, будет вызываться при перерисовке.