![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите, совсем глючить стал...
Cr@sh © (2002-11-08 20:29:00)На первой форме есть меню, есть text:string в котором находится name одного из пунктов меню, как щелкнуть этот пункт меню со втрой формы?
Заранее спасибо
Shadow (2002-11-08 21:37:00) [1]2Pat
OK
Pat (2002-11-08 21:08:00) [2]Чтобы из другой формы можно было кликнуть:
TMenuItem( Form1.FindComponent(text)).OnClick(sender)
Pat (2002-11-08 21:04:00) [3]TMenuItem(FindComponent(text)).OnClick(sender)
-=VENTUS=- (2002-11-08 20:57:00) [4]ФОРМА 1 -
procedure TForm1.N1Click(Sender: TObject);
begin
Сlick1;
end;
procedure Click1;
begin
....
действие короче
...
end;
=================================
ФОРМА 2 -
Вызываем процедуру - Click1 на форме1
....
begin
Form1.Click;
end;
Cr@sh (2002-11-08 20:50:00) [5]2Shadow
Через файнд компонент выдает TComponent, а надо TMenuItem
Shadow (2002-11-08 20:47:00) [6]через FindComponent
-=VENTUS=- (2002-11-08 20:42:00) [7]Тебе нужно не "щелкнуть" по пункту меню , а сделать чтоб при нажатии кнопки (пункта меню) вызывалась поцедура и из другой формы вызывалась таже процедура.....