Скачать: CL | DM;

PopupMenu и событие OnClick   Найти похожие ветки 

← →
Настя   (2005-08-13 18:52) [0]

Приветик!

У меня возник вопросик. Я динамически создаю PopupMenu и для каждого пункта мне надо сделать один и тот же обработчик нажатия.

Необходимо, чтобы по нажатию на каждый пункт его имя копировалось в буфер обмена. (обработчик должен быть только один, а пунктов может быть очень много).

Помогите, пожалуйста.

Заранее благодарна.

---

← →
Marser ©   (2005-08-13 19:22) [1]

Uses clipbrd
procedure TForm1.MenuItemClick(Sender: TObject);
begin
with TClipBoard.Create do
 try
   SetTextBuf(@(Sender as TMenuItem).caption[1])
 finally
   Free
 end
end;

---

← →
Marser ©   (2005-08-13 19:24) [2]

Если нужно именно имя, то действуем вот так:
SetTextBuf(@(Sender as TComponent).Name[1])

---

← →
Настя   (2005-08-13 21:25) [3]

Спасибочки всем, особенно Marser, я оговорилась мне нужно было скопировать не имя а именно Caption. Marser видно интуитивно догадался :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.09 c