StringGrid - onDBLClick

[postaveche]

Подскажите как реализовать чтоб при двойном щелчке на определенную ячейку у меня открывали другая форма для выбора из нее данных чтоб подставить их в эту ячейку.

узнал координаты ячейки

procedure TForm11.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
StringGrid1.MouseToCell(X, Y, Col, Row);
end;

Подскажите как написать чтоб при двойном щелчке на ячейки первой колонки открывалось одна форма

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

пробовал так но не получается

if (StringGrid1.Cells[1,Row] = StringGrid1.Cells[Col,Row]) then
Form13.ShowModal;

[Stilet]

Опиши OnDblClick

procedure TForm1.StringGrid1DblClick(Sender: TObject);
var g:TGridCoord;pnt:TPoint;
begin
 pnt:=StringGrid1.ScreenToClient(Mouse.CursorPos);
 g:=StringGrid1.MouseCoord(pnt.X,pnt.Y);
 form2.show;
 form2.Caption:=IntToStr(g.X)+' '+IntToStr(g.y);
end;

переменка g содержит координаты клетки, по которой совершен двойной клик.

[postaveche]

ну это ты определил тоже самое ... координаты ячейки но мне нужно другое

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

[Stilet]

Странный вопрос...

if (g.x=1)and(g.y=1) then чет делаемж
if (g.x=1)and(g.y=2) then чет делаем ещеж

[postaveche]

реализовал это действие так

if (StringGrid1.Cols[0] = StringGrid1.Cols[g.X]) then
 begin
 Form15.ShowModal;
 end;
 if (StringGrid1.Cols[1] = StringGrid1.Cols[g.X]) then
 begin
 Form15.ShowModal;
 end;

но возникла еще одна загвоздка

как передать эти параметры в Form15 чтоб при выборе от туда данных их вставляла в эти ячейки по которым я кликал

Form11.Stringgrid1.Cells[0,1] := DBGridEh1.Fields[1].AsString;
Form11.Stringgrid1.Cells[1,1] := DBGridEh1.Fields[2].AsString;
Form11.Stringgrid1.Cells[2,1] := DBGridEh1.Fields[3].AsString;
close;

если так то в первый ряд вставляет но мне надо вот так

Form11.Stringgrid1.Cells[0,g.Y] := DBGridEh1.Fields[1].AsString;
Form11.Stringgrid1.Cells[1,g.Y] := DBGridEh1.Fields[2].AsString;
Form11.Stringgrid1.Cells[2,g.Y] := DBGridEh1.Fields[3].AsString;
close;

И еще вопросик ... как задать DisplayFormat для колонки Стринггрида

[asmodey1]

По теме. Как определить ячейку :

procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
if (StringGrid1.Row=2) and (StringGrid1.Col=2) then
//Label1.Caption:='Good' else
//Label1.Caption:='Bad '+IntToStr(StringGrid1.Row)+'  '+IntToStr(StringGrid1.Col);
Form2.Show;
end;

[postaveche]

это не то ... помогите разобраться как как передать координаты в другую форму что б потом можно было в эти координаты вставить данные

[postaveche]

всё разобрался ... определил g x y как глобальные и всё получилось!!!

[postaveche]

кто подскажет как задать displayformat для ячейки Stringgrid

[Ship_1]

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

Проблема вот какая. Есть StringGrid, колонки и строки которого вылезают за края видимой области. Есть обработчик события OnDblClick для этой таблицы. Есть для него же OnClick.
И вот сама проблема: если я хочу сделать DblClick в колонке, когда 1-я колонка за краем экрана, то уже после первого клика, не дав мне даже успеть сделать второй, таблица "съезжает" к первой (ACol=0) колонке. Почему? Может ли это быть связано с тем, что в событии OnClick я обращаюсь к содержимому 1-й колонки? Если да - как бороться со "сдвигом"? Если нет - в чём ещё может быть причина?
-------------------------------------------------------------
Обнаружилась и ещё одна проблема: прокрутка колеса мыши обрабатывается и в OnClick таблицы?? Что за новость? Как "обойти"? "Клик" как бы происходит в том месте, над которым расположен курсор мышки при прокручивании колеса.