How to tell which label the user wants to copy the text of?

[BobbaFet]

Thanx all for reading my question and happy new year!

Here's the deal: I got 5 labels and a listbox. I have made popupmenu with a button "copy to clipboard". For this I use the code:

Clipboard.AsText := LinkStorage.Items[i];

or 

Clipboard.AsText := MyLabel12345.Caption;

Which works fine in itself. But! I want to use the same button for all 5 labels and the listbox (to copy the selected item to the clipboard, multiselect is turned off). How do you go about this? I obviously can't use Sender as it is always the same TMenuItem. So what am I to do?

BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com
Great Delphi Websites faq102-5352

 

[towerbase]

I am not sure that I understand your problem exactly.

The selected item in the Listbox is identified by the property ItemIndex.

You can copy the selected item in the ListBox to the clipboard by

  Clipboard.AsText := ListBox.Items[ListBox.ItemIndex];

The Items property of the ListBox is a TStrings so you can assign a pointer to each item in the ListBox. This pointer could point to a TLabel. By using this link from the ListBox to the label you could copy the 'selected' label into the clipboard:

...
var
  label: TLabel;
begin
  ...
  label := ListBox.Items.Objects[ListBox.ItemIndex] as TLabel;
  Clipboard.AsText := label.caption;

I haven't tested the above code but it should give you some idea.

Andrew
Hampshire, UK

 

[sijgs]

Could use OnMouseEnter and OnMouseLeave to set a variable as to which label the mouse is pointing to.



Regards and HTH,
JGS

 

[BobbaFet]

Thanks Sijgs,

I initially tried onMouseLeave for the labels but that didnt work with the PopupMenu. But onMouseEnter works really nice!

BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com
Great Delphi Websites faq102-5352