StringGrid und Popup

[SaFu]

Hi kann mir vielleicht einer sagen wie ich es schaffe eine zelle im StringGrid mit Rechter maustaste zu selektieren und das dann ein popup menü auf geht habe es mal so versucht

Delphi-Quellcode:

procedure TForm7.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
 StringGridpopup.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

danke sascha

[DeddyH]

Ich habe gerade kein Delphi zur Hand, aber hat das StringGrid keine Property PopupMenu?

[SaFu]

Doch aber ich mus zuerst mit der linken Maustaste die Zelle makieren
und dann kann ich erst an der stelle mein popup ausführen

[DeddyH]

Schon mal mit MouseToCell versucht?

[SaFu]

Ja hat aber auch nicht so ganz geklappt dann wird es irgenwohin geschoben

[DeddyH]

Moment, wenn Du das PopupMenu im OI zuweist, könntest Du doch OnPopup die entsprechende Zelle ermitteln und markieren, oder geht das nicht? Wie gesagt, ich kann das gerade nicht ausprobieren.

[SaFu]

meinst du so ungefähr

Delphi-Quellcode:

procedure TForm7.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  col, row: integer;
begin
StringGrid1.MouseToCell(x, y, col, row);
if Button = mbRight then
 StringGridpopup.Popup(col, row);

end;

[DeddyH]

Gerade mal unter Ubuntu mit Lazarus versucht:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var aCol,aRow: integer;
    p: TPoint;
begin
  p := StringGrid1.ScreenToClient(Mouse.CursorPos);
  StringGrid1.MouseToCell(p.X,p.Y,aCol,aRow);
  StringGrid1.Col := aCol;
  StringGrid1.Row := aRow;
end;

[SaFu]

Genau das wars hatte nicht an die Eigenschaft vom Popup gedacht dank dir Trotzdem

[SaFu]

vielleicht doch noch einen kleinen tipp

das verhindern des Popups bei Spalte null

Delphi-Quellcode:

procedure TForm7.StringGridPopupPopup(Sender: TObject);
var iCol,iRow: integer;
    Position: TPoint;
begin
if StringGrid1.Col = 0 then
  begin
    abort;
  end
  else
  begin
   Position := StringGrid1.ScreenToClient(Mouse.CursorPos);
   StringGrid1.MouseToCell(Position.X,Position.Y,iCol,iRow);
   StringGrid1.Col:= iCol;
   StringGrid1.Row:= iRow;
  end;
end;

geht net so ganz