Stringgrid Popup-Menü -> Verweis auf aktuelle Zelle/Zeile

[Joh]

Moin,

ich möchte in einem Stringgrid mit einer Liste von Dateien eine Datei per PopUp-Menu automagisch öffnen.
Theoretisch klappt es so weit, praktisch scheitert es daran, das beim Rechtsklick die darunterliegende Zelle nicht den Focus erhält.

Im DBGrid gibt es das Element "dgAnyButtonCanSelect"; gibt es da im Stringgrid analoges?

aktuell habe ich es über eine globale Variable gelöst. aber das macht mich irgendwie nicht glücklich:

Code: Alles auswählen

procedure TfrmLpiStart.grdDateienMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var aCol, aRow: Integer;
begin
  grdDateien.MouseToCell(x, Y, aCol, aRow);
  aktZeile := aRow;
end;  

[theo]

aktuell habe ich es über eine globale Variable gelöst. aber das macht mich irgendwie nicht glücklich:

Warum nicht?

[h-elsner]

Dafür gibt es doch die Procedur MouseToCell(x, y, iCol, iRow); Damit kann man beim MouseUp Event (alle Mouse Events, die x,y Position melden) die daunterliegende Zelle im StringGrid ermitteln.

[Sieben]

Warum selektierst du die Zeile nicht gleich in deinem MouseDown? Der Event scheint ja vor dem PopUp zu kommen, sonst würde dir aktZeile ja auch nichts nützen. Dann hättest du beim PopUp genau die gewünschte Situation und kannst dir aktZeile sparen. Oder übersehe ich was?

[theo]

Mir ist immer noch nicht ganz klar, wie das ablaufen soll, oder wo der Haken liegt.
Ich würde das PopupMenu nicht im Grid registrieren, sondern manuell auslösen.
Die Row kann man mit dem Row Property des StringGrid übergeben.
z.B. etwas in dieser Art:

Code: Alles auswählen

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var aCol, aRow: Integer;
begin
  if ssRight in Shift then
  begin
    TStringGrid(Sender).MouseToCell(X, Y, aCol, aRow);
    TStringGrid(Sender).Row:=ARow;
    PopupMenu1.PopUp;
  end;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  TPopupMenu(Sender).Items[0].Caption:=StringGrid1.Row.ToString; //Test
end;

[Joh]

Alles ok...

Ich bin nur immer noch so gepolt, das globale Variablen nicht gut sind und ich von daher versuche drauf zu verzichten.
Die Art der Zuweisung liegt daran, das ich in einer anderen Prozedur ähnlichen mache und es für mich so auf den ersten Blick ersichtlich ist.

[af0815]

Alles ok...

Ich bin nur immer noch so gepolt, das globale Variablen nicht gut sind und ich von daher versuche drauf zu verzichten.

Global ist ein dehnbarer Begriff. Man kann auch etwas Unit Global machen.

Vor allen, brauchst du das nur in einem Objekt, dann lass die Variable im Objekt.

Per se ist ja Global nicht komplett böse, man sollte es nur bewusst und gezielt einsetzen. Betonung liegt auf bewusst.

[theo]

Oder wie oben gezeigt:

Code: Alles auswählen

  TStringGrid(Sender).Row:=ARow;

Löst das nicht dein Problem? Warum nicht?

[Joh]

Oder wie oben gezeigt:

Code: Alles auswählen

  TStringGrid(Sender).Row:=ARow;

Löst das nicht dein Problem? Warum nicht?

Doch, jein...

Es ging mir ja nicht darum, eine programmatische Lösung zu finden, sondern darum, ob es einen eleganteren Weg gibt.

Irgendwie verstehe ich nicht, warum manche Funktionalitäten in TStringGrid und andere in TDBGrid drin sind.
In meiner kleinen Welt hätte ich die in den gemeinsamen Vorfahren TCustomGrid gepackt...

[theo]

Es ging mir ja nicht darum, eine programmatische Lösung zu finden, sondern darum, ob es einen eleganteren Weg gibt.

Ist das nicht elegant? Warum nicht?

Ich kann mit Aussagen wie "macht nicht glücklich" oder "eleganteren Weg" nicht viel anfangen.
Du musst schon sagen, was du haben willst.
Oder einfach weitermachen, wenn ein Problem gelöst ist. Zuviel grübeln macht auch nicht "glücklich".