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 видно интуитивно догадался :)

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