Popup, wie erkenne ich wo aktiviert wurde

[waldforest]

Hallo,
ich habe 3 Memofelder.
Über 1 Popup möchte ich Aktionen ausführen, in dem Memofeld, in dem ich mit Rechtsklick dieses Popup geöffnet habe.

Wie kann ich ermitteln, in welchem Memofeld ich das Popup aktiviert habe ?

[Uwe Raabe]

Delphi-Quellcode:

TPopupMenu.PopupComponent

[omata]

Delphi-Quellcode:

ScreenToClient(PopupMenu.PopupPoint)

Edit: War die Frage eben nicht noch anders?

[DeddyH]

Er wollte ja die Komponente wissen, nicht die Koordinate ;)

[omata]

Zitat:

Zitat von DeddyH

Er wollte ja die Komponente wissen, nicht die Koordinate ;)

Edit: Hab mich wohl doch verlesen, sorry.

[waldforest]

Hallo,
erst mal danke, bin aber noch nicht weiter gekommen.
z.B. hinzufügen einer neuen Zeile im Memo.

Delphi-Quellcode:

procedure TForm.FileMenuItemClick(Sender: TObject);
var i:integer;
begin
if not opendialog.Execute then exit;
 for i := 0 to opendialog.Files.count-1 do
  (ActiveControl as TMemo).Lines.Add(opendialog.Files[i]);

end;

Da steig mein Programm mit einer Excepption aus.

[daywalker9]

Ist das ActiveControl auch dein TMemo ?

[waldforest]

Hallo,
ja,
ich habs gelöst.

Delphi-Quellcode:

procedure TForm.FileMenuItemClick(Sender: TObject);
var i:integer;
begin

if not opendialog.Execute then exit;

 for i := 0 to opendialog.Files.count-1 do
 (PopupMenu.PopupComponent as TMemo).Lines.Add(opendialog.Files[i]);

end;

PopupMenu.PopupComponent war der richtige Hinweis

[sx2008]

Man kann das auch noch schöner und schneller machen; man braucht dazu nur eine Zwischenvariable.

Delphi-Quellcode:

procedure TForm.FileMenuItemClick(Sender: TObject);
var 
  i:integer;
  lines : TStrings;
begin
  if not opendialog.Execute then exit;
  lines := (PopupMenu.PopupComponent as TMemo).Lines;
  for i := 0 to opendialog.Files.count-1 do
    lines.Add(opendialog.Files[i]);
end;

Damit ist die Anweisung (PopupMenu.PopupComponent as TMemo).Lines ausserhalb der Schleife und das ist ein Vorteil, weil sich dahinter gleich 3 Funktionsaufrufe verstecken.
Aber es geht noch besser:

Delphi-Quellcode:

procedure TForm.FileMenuItemClick(Sender: TObject);
var 
  lines : TStrings;
begin
  if opendialog.Execute then
  begin
    lines := (PopupMenu.PopupComponent as TMemo).Lines;
    lines.AddStrings(opendialog.Files);
  end;
end;

Man könnte jetzt die Zwischenvariable "lines" wieder eliminieren, aber das macht den Code nicht besser lesbar.

[DeddyH]

Und statt AddStrings könnte man auch Assign nehmen ;)