myedit.SelectAll ersetzen durch (Sender as TEdit).SelectAll

[eddy]

Hallo DeddyH,

vielen Dank für Deine Unterstützung.

Delphi-Quellcode:

// copy1 : TMenuItem;

procedure TForm1.copy1Click(Sender: TObject);
var
  c1, c2, c3 : TComponent;
begin
  if Sender is TMenuItem then begin
    c1 := Sender as TMenuItem;
    c2 := c1.GetParentComponent;
    c3 := (c2 as TPopupMenu).PopupComponent;
    (c3 as TEdit).SelectAll;
    (c3 as TEdit).CopyToClipboard;
  end;
end;

mfg
eddy