![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
PopupMenu и событие OnClick [D7, WinXP]
Настя © (2005-08-13 18:52:00)Приветик!
У меня возник вопросик. Я динамически создаю PopupMenu и для каждого пункта мне надо сделать один и тот же обработчик нажатия.
Необходимо, чтобы по нажатию на каждый пункт его имя копировалось в буфер обмена. (обработчик должен быть только один, а пунктов может быть очень много).
Помогите, пожалуйста.
Заранее благодарна.
Настя (2005-08-13 21:25:00) [1]Спасибочки всем, особенно Marser, я оговорилась мне нужно было скопировать не имя а именно Caption. Marser видно интуитивно догадался :)
Marser (2005-08-13 19:24:00) [2]Если нужно именно имя, то действуем вот так:
SetTextBuf(@(Sender as TComponent).Name[1])
Marser (2005-08-13 19:22:00) [3]Uses clipbrd
procedure TForm1.MenuItemClick(Sender: TObject);
begin
with TClipBoard.Create do
try
SetTextBuf(@(Sender as TMenuItem).caption[1])
finally
Free
end
end;