Hallo,

kann mir jemand vllt beim folgenden Problem helfen: ich habe mehrere Labels auf meiner Form, beim Rechtsklick auf jedes Label öffnet sich ein PopupMenü, nun möchte ich in diesem Popupmenü den Label Text bzw. Caption in die Zwischenablage kopieren. Wie geht das eigentlich?

Etwa so? Klappt aber bei mir nicht. Meine Labels haben verschiedene Namen, vllt deswegen?

markieren

Delphi-Quellcode:

procedure TForm1.CopyDetailsLabelClick(Sender: TObject);
begin
  Clipboard.AsText:=TLabel(Sender).Caption;
end;

Der Sender ist ja beim Popupmenü nicht das Label, oder seh ich das gerade falsch?

Was dann?

Die gerne gestellte Rückfrage
"Was klappt denn nicht"
Gibt es eine Fehlermeldung, sind keine Daten vorhanden, steht etwas gänzlich anderes im Clipboard...

So sollte es eigentlich funktionieren:

markieren

Delphi-Quellcode:

var
  clp : tclipboard;
begin
  clp:=clipboard;
  clp.AsText:=irgendeintextstring;
  clp.Free;
end;

Gruß
K-H

Mal ausführlich

markieren

Delphi-Quellcode:

if Sender is TMenuItem then
  if TMenuItem(Sender).GetParentMenu is TPopupMenu then
    if TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent is TLabel then
      showmessage(TLabel(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent).Caption)

Eine Zugriffsverletzung erscheint.

Ja du hast recht, so wie bei dir klappt es auch, aber ich hab ja mehrere Labels, und die jeweilige Caption von nem Label soll in die Clipboard, und das geht irgendwie anders. Muss die Caption dem PopupMenü irgendwie übergeben.

Zitat von Jumpy:

Mal ausführlich

markieren

Delphi-Quellcode:

if Sender is TMenuItem then
  if TMenuItem(Sender).GetParentMenu is TPopupMenu then
    if TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent is TLabel then
      showmessage(TLabel(TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent).Caption)

Danke!