模拟系统提示框

在FormCreate设置PersonSignLB的windows消息

aHint :=THintWindow.Create(nil);
aHint.Color :=clInfoBk;
FWndMethod := PersonSignLB.WindowProc;
PersonSignLB.WindowProc := LabelWndProc;

 

显示个人提示框

procedure TMainForm.LabelWndProc(var Msg: TMessage);

  //根据一定长度，将字符串变为回车的字符
  function SplitByLen(src:string;var row:Integer;perCount:Integer):string;
  var
    i,j:Integer;
    c:Char;
    sTemp,s1:string;
    bIsDBCS:Boolean;
  begin
    row :=Ceil(Length(src)/perCount);
    sTemp :='';
    bIsDBCS :=False;
    for I := 1 to row do
    begin
      for   j:= 1 to  perCount   do
      begin
        if bIsDBCS   then
          bIsDBCS   :=   False
        else
          if Windows.IsDBCSLeadByte(byte(src[j]))   then
            bIsDBCS   := True;
      end;

      if  bIsDBCS   then   Dec(perCount);
      if i=row then
        sTemp :=sTemp +Copy(src,1,perCount)
      else
        sTemp :=sTemp +Copy(src,1,perCount)+#10#13;
      src :=Copy(src,perCount+1,Length(src)-perCount);
    end;
    if bIsDBCS then
      Inc(perCount);
    Result :=sTemp;  
  end;

var
  p,p1,p2: TPoint;
  iRow:Integer;
  s:string;
begin
  GetCursorPos(p);
  p1 :=Point(p.x,p.y+20);

  if Msg.Msg = CM_MOUSELEAVE then
  begin
    ShowWindow(aHint.Handle, SW_HIDE);
  end
  else if Msg.Msg = CM_MOUSEENTER then
  begin
    s :=SplitByLen(FSingLB,iRow,36);
    //djc 2012-8-30 mod
    if iRow=1 then
      p2 :=Point(p.x+220,p.y+36)
    else
      p2 :=Point(p.x+220,p.y+26*iRow);
    aHint.ActivateHint(Rect(p1,p2),s);
  end;
  FWndMethod(Msg);
end;