|
|
#2
cswhl2006-06-11 19:05
|
代码:procedure TForm1.mihelpclick(Sender: TObject);
const
HELP_TAB=15;
CONTENTS_ACTIVE=-3;
begin
Application.HelpCommand(HELP_TAB,CONTENTS_ACTIVE);
end;
(用的组件是MainMenus,是老师要求用的呀)
用click事件不能实现吗,还是必须用Execute事件,但我怎么也不能在MainMenus上实现呀