Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
6. Jan 2008
Ich kann es gerade nicht ausprobieren, aber versuch es mal so:procedure TForm7.StringGridPopupPopup(Sender: TObject);
var iCol,iRow: integer;
Position: TPoint;
begin
Position := StringGrid1.ScreenToClient(Mouse.CursorPos);
StringGrid1.MouseToCell(Position.X,Position.Y,iCol,iRow);
if iCol = 0 then
abort
else
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jan 2008
Gerade mal unter Ubuntu mit Lazarus versucht: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;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jan 2008
Schon mal mit MouseToCell versucht?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jan 2008
Ich habe gerade kein Delphi zur Hand, aber hat das StringGrid keine Property PopupMenu?