Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо