[gelöst] Popupmenü

[DAP]

Hallo,

ich komme einfach nicht weiter, vielleicht kann mir einer von Euch helfen.

Ich habe zwei Stringgrids und ein Popupmenü, jetzt möchte ich gerne
abfragen, wer der Sender (Auslöser) des Menüaufrufes ist.

Das onclick Ereignis ( procedure TForm1.GridPMenu_CopyClick(Sender: TObject);)
vom Popupmenü hat jedoch als Sender das Menü selber. Auch das Parent
vom Popupmenü wäre ja eigentlich nur die Form.

Gibt es eine Möglichekeit mit einem Popupmenü auf zwei Komponenten,
hier Stringdrids, unterschiedliche zu reagieren?

[theo]

Naja, das sauberste wäre wohl, zwei Popupmenus zu verwenden.
Der Spruch "ich komme einfach nicht weiter" ist für grössere Probleme reserviert.

Alternativ kann man auch bei jedem StringGrid im OnMouseDown Ereignis den aktuellen StringGrid in einer Variable speichern.
Das Popupmenu kommt ja gleich danach.

Zur Illustration:

Code: Alles auswählen

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
   PopupMenu1.Items[0].Caption:=Caption;
end;
 
procedure TForm1.StringGridMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssRight in Shift then Caption:=TControl(Sender).Name;
end; 

[DAP]

Naja, das sauberste wäre wohl, zwei Popupmenus zu verwenden.
Der Spruch "ich komme einfach nicht weiter" ist für grössere Probleme reserviert.

Ok, sehe ich ein, ich kam aber wirklich nicht weiter.

Mehrere PopupMenüs kommen in diesem Fall nicht in Frage, da ich ca. 10 Tabellen habe.

Beim Versuch dein Beispiel umzusetzen bricht er beim zweiten Aufruf von doCopyToClipBoard
ab. Beim direkten Ansprechen der StringGrid1 - Komponente funktioniert der Aufruf!
(Den zweiten Aufruf von doCopytoClipBoard habe ich nur zu Testzwecken eingeführt)

Code: Alles auswählen

  //TForm = ...
 
  public
    { public declarations }
    LastGridMouseDown : TObject;
  end;  
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssRight in Shift then LastGridMouseDown := Sender;
end;  
 
procedure TForm1.GridPMenu_CopyClick(Sender: TObject);
begin
  StringGrid1.doCopyToClipBoard;
 
  with TStringGrid(LastGridMousedown) do
  begin
    doCopyToClipBoard;  //Abruch Fehler: SIGSEGV 
  end;
 
end; 
 

[/quote]

[theo]

Mehrere PopupMenüs kommen in diesem Fall nicht in Frage, da ich ca. 10 Tabellen habe.

Die könnte man auch dynamisch erzeugen.

Beim Versuch dein Beispiel umzusetzen bricht er beim zweiten Aufruf von doCopyToClipBoard
ab. Beim direkten Ansprechen der StringGrid1 - Komponente funktioniert der Aufruf!
(Den zweiten Aufruf von doCopytoClipBoard habe ich nur zu Testzwecken eingeführt)

Warum bzw. wie verwendest du die protected Methode doCopytoClipBoard, und nicht einfach die public Methode CopytoClipBoard ?

[DAP]

Warum bzw. wie verwendest du die protected Methode doCopytoClipBoard, und nicht einfach die public Methode CopytoClipBoard ?

hatte ich auf die Schnelle als Beispiel verwendet, aber mit CopytoClipBoard kommt der gleiche Fehler.

[theo]

Keine Ahnung, dann ist LastGridMouseDown halt aus irgend einem Grund zu diesem Zeitpunkt wieder ungültig.
Das musst du debuggen, was da abgeht. Das weiss ich doch auch nicht.

[DAP]

Deine Antwort lies mich vermuten, dass ich im Code nicht ganz so viel falsch
haben kann, deshalb habe ich das gleiche in einem neuen Projekt probiert
und siehe da, es klappt wunderbar.

Der Ausnahmefehler muss also an etwas anderm liegen.

Danke Theo