Popup+dbGrid

[s.mag]

Господа, прошу прощения за поднятие тойже темы, но у меня возник вопрос как зделать так, чтобы по нажатию клавиши "Enter" меню вылазило в выдиленой строке dbGrid-а. Как запихнуть Popup в dbGrid я догадался, но меню появляется в верхнем левом углу.

[Stilet]

А как ты меню вызываеш?

[s.mag]

Вот таким вот макаром:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var x,y:integer;
begin
if key=13 then PopupMenu1.Popup(DBGrid1.ClientOrig in.X,DBGrid1.ClientOrigin.Y);
end;

[Stilet]

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

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var x,y:integer;var r:TRect;
begin
r:=DBGrid2.Selection;
if key=13 then PopupMenu1.Popup(r.left,r.top); end;

[s.mag]

неа не помогло, а вернее даже не заработало

[Stilet]

Да эт я чет не оттуда...
Вот смотри:

var              t:Tpoint; 
...........

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in state  then  begin
   t:=rect.TopLeft;
   t.X:=t.X+TDBGrid(Sender).Left;
   t.y:=t.y+TDBGrid(Sender).Top;
   end;
end;
.............


procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin
t:=ClientToScreen(t);
   PopupMenu1.Popup(t.X,t.Y);
end;

Примерно так.

[s.mag]

спасибо, получилось. НО если несколько раз нажать на одной и тойже записи, то менюшка кудато убегает, может с этим подскажешь как бороться.

[pu4koff]

как-то так для ячейки [2,2] можно. Правда немного через одно место

procedure TForm1.Button1Click(Sender: TObject);
var
 r: TRect;
begin
  r := TStringGrid(DBGrid1).CellRect(2,2);
    PopupMenu1.Popup(DBGrid1.ClientOrigin.X+r.Left,DBGrid1.ClientOrigin.Y+r.Top);
end;

[s.mag]

Сообщение от Stilet

Да эт я чет не оттуда...
Вот смотри:

var              t:Tpoint; 
...........

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if gdSelected in state  then  begin
   t:=rect.TopLeft;
   t.X:=t.X+TDBGrid(Sender).Left;
   t.y:=t.y+TDBGrid(Sender).Top;
   end;
end;
.............


procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin
t:=ClientToScreen(t);
   PopupMenu1.Popup(t.X,t.Y);
end;

Примерно так.

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

var t:Tpoint;
...........................
procedure TForm1.DBGrid1DrawColumnCell(Sender : TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if gdselected in State then begin
t:=Rect.TopLeft;
t.X:=t.X+TDBGrid(Sender).Left;
t.Y:=t.Y+TDBGrid(Sender).Top;
t:=ClientToScreen(t);
end;

end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
PopupMenu1.Popup(t.X,t.Y);
end;