在HTMLEdit的控制中，大多数的功能都已经能控制，但有一个奇怪的问题，原来已经正常运作的Redo和Undo失效了。 实作如下： function THTMLEdit.CanUndo: Boolean; begin Result := (QueryStatus(DECMD_UNDO) and DECMDF_ENABLED) = DECMDF_ENABLED; end; procedur Button1Click(Sender: TObject); begin SpecialCommand(IDM_UNDO, False, True, False, nilVariant); end; 有谁知道原因所在吗？ 兵临城下，快活如故。

------
兵临城下，快活如故。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.