N nxyzg Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-10 #4 放到Form里了. to 影子 我的xpmenu中没有active属性或事件
老 老人家 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-10 #6 procedure TFormMain.FormCreate(Sender: TObject); begin XPBarMenu1 := TXPBarMenu.Create(Self); XPBarMenu1.BarCaption := '111222'; XPBarMenu1.Active := True; end; procedure TFormMain.FormDestroy(Sender: TObject); begin XPBarMenu1.Free; end;
procedure TFormMain.FormCreate(Sender: TObject); begin XPBarMenu1 := TXPBarMenu.Create(Self); XPBarMenu1.BarCaption := '111222'; XPBarMenu1.Active := True; end; procedure TFormMain.FormDestroy(Sender: TObject); begin XPBarMenu1.Free; end;