Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Как програмно нажать (выбрать) пункт меню из ТMainMenu ? 


maxi   (2001-11-12 16:26) [0]

Помогите. Как по событию нажатия на кнопке, сделать так что бы вызывался самый первый пункт меню. Я пробовал так:

Mymenu.items[0].Click

Однако, он не нажимается.
Что делать ?



Mbo   (2001-11-13 09:02) [1]

Пункт меню имеет имя
procedure TForm1.N21Click(Sender: TObject);
begin
label1.caption:="sdf";
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
N21Click(Sender);
end;

но лучше используй ActionList



maxi   (2001-11-13 12:00) [2]

Спасибо за ответ, но Мне то надо, что бы по нажатию на кнопку, фокус с кнопки снимался, и передавался на соответствующий пункт меню.
Как бы получше объяснить ?
Например нажмите F10 в Ворде, Екселе или ИнетЭксплорере. Выделится первый пункт меню (если таковое есть). Но как сделать так, что бы при нажатии кнопки эффект был таким же (т.к. F10 у меня занята и использовать её нельзя)?????
Заранее благодарен.



Fellomena   (2001-11-13 12:05) [3]

Используй ActionList и при нажатии делай SendMessage(), с хэндлм нужного меню и сообщением WM_SETFOCUS



maxi   (2001-11-13 12:20) [4]

Может быть так и пойдет, но хотелось бы по кнопке.
Пробовал так :

procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
SendMessage(BitBtn1.Handle,WM_KILLFOCUS,0,0);
SendMessage(N1.Handle,WM_SETFOCUS,0,0);
еnd;

Это все равно не пашет... Что деать ?



Fellomena   (2001-11-15 12:30) [5]

Что есть N1 ?



nikkie   (2001-11-15 16:54) [6]

SendMessage(Handle, WM_SYSCOMMAND, SC_KEYMENU, 0);



Fellomena   (2001-11-16 16:55) [7]

Вот кстати, вспомнила старая:
WM_INITMENU; // АКТИВИЗАЦИЯ
WM_INITMENUPOPUP; // раскрытие подменю
WM_MENUSELECT; // "подсветка" команды меню
WM_CONTEXTMENU; // нажатие правой кнопки мышы для отображен. контекстного меню




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.026 c
3-52516           Nest                  2001-12-17 11:15  2002.01.17  
Возможно ли из программы открыть временную таблицу для редактирования? Со стандартными компонентами не получается %(


1-52534           Andrey196             2001-12-26 18:28  2002.01.17  
Как у combobox скрыть строку ввода, и чтобы первый item был виден на этой строке


4-52682           Viking                2001-11-15 13:23  2002.01.17  
Заполнение web форм


3-52483           Yanker                2001-12-04 00:01  2002.01.17  
Альтернатива BDE


1-52581           ASV                   2001-12-29 00:14  2002.01.17  
PDF Russian fonts