Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ошибка!

Автор: WGR 14.3.2007, 19:13

TMenuItem(FindComponent('N_Minimization')).ShortCut:=TextToShortCut('Ctrl+S');
вылетает ошибка
в чем дело подскажите!

Автор: Matematik 14.3.2007, 19:17

Цитата(WGR @ 14.3.2007, 19:13

)

вылетает ошибка

Так и пишет "Ошибка"?

Код


var 
c:TComponent;
m:TMenuItem;
begin
c:=FindComponent('N_Minimization');
if (c<>nil) and (с is TMenuItem) then
  begin
    m := c as TMenuItem;
    m.ShortCut:=TextToShortCut('Ctrl+S');
  end

Автор: WGR 14.3.2007, 19:20

всё разобрался smile

надо было вот так
эта менюшка на другой форме

TMenuItem(Mainform.FindComponent('N_Minimization')).ShortCut:=TextToShortCut('Ctrl+S');

Добавлено @ 19:23
какраз на счёт FindComponent

как узнать что такого компонента не нашлось?

Автор: Sunvas 14.3.2007, 20:08

Цитата(WGR @ 14.3.2007, 19:20

)

как узнать что такого компонента не нашлось?

Дык. Зри внимательнее:

Цитата(Matematik @ 14.3.2007, 19:17

)

c<>nil

Автор: Alexeis 14.3.2007, 20:27

Модератор: Название темы должно отражать ее суть!