Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 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; // нажатие правой кнопки мышы для отображен. контекстного меню



Страницы: 1 вся ветка

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

Наверх





Память: 0.56 MB
Время: 0.016 c
14-52659
lel
2001-11-20 14:24
2002.01.17
Всем у кого траффик халявный качайте, посмейтесь


3-52517
facquodvis
2001-12-17 10:49
2002.01.17
один запрос - две БД


1-52564
$DM
2001-12-28 15:26
2002.01.17
FastReport 2.44. Ребята помогите!!! Не получается скрыть мемо поле с помощью скрипта.


14-52637
Sobesednic
2001-11-20 22:56
2002.01.17
В чем разница Delphi 6 Enterprise(144mb) от Delphi 6 Personal(140mb)


3-52501
ripp
2001-12-15 15:40
2002.01.17
Повтор. Помогите!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский