我的MenuItem的AutoHotKeys設為True,目的希望保留HotKey,之後, 我在MenuItem的OnDrowItem內,Caption沿用,改變Menu的Font,color,size, TextOut送出後,Menu顯示出來的字串多了"&"這個Hotkey前導符號,很是困惱,    ex.      正確為: 會員系統(V) 銷售系統(S)     TextOut之後: 會員系統(&V) 銷售系統(&S)    曾試想應用字串函數處理,但發現光是字串長度得到的結果都不是預期的, 不曉得各位前輩可曾碰過,又如何解決?  ===

在 OnDrawItem 事件裏用如下的碼 會把所有 Caption 中第一個出現的 '&' 字元刪除後再 Textout:

var
  iPos: integer;
  sText: string;
begin
  sText := TMenuItem(Sender).Caption;
  iPos := Pos('&', sText);
  if iPos > 0 then
    Delete(sText, iPos, 1);
  ACanvas.Textout(Rect.Left, Rect.Top, sText);
end;

-- 向 KTop 的弟兄們致敬!

引言: 在 OnDrawItem 事件裏用如下的碼 會把所有 Caption 中第一個出現的 '&' 字元刪除後再 Textout:

var
  iPos: integer;
  sText: string;
begin
  sText := TMenuItem(Sender).Caption;
  iPos := Pos('&', sText);
  if iPos > 0 then
    Delete(sText, iPos, 1);
  ACanvas.Textout(Rect.Left, Rect.Top, sText);
end;

-- 向 KTop 的弟兄們致敬!

非常感謝Hagar兄指點,很快的幫我解決了困難!再次感謝! === Delphi 新手上路 多請包涵 ===

1.DrawText 2.StringReplace