//测试 在form1中 添加 StatusBar1 设Autohint 为 True ;
procedure TForm1.ComBoBoxCS1SelChange(Sender: TObject);
begin
Caption := IntToStr(ComBoBoxCS1.CurSelItem);
hint:=inttostr( ComBoBoxCS1.CurSelItem);
showhint:=true;
end;
//虽然Caption变化,但StatusBar1的Text只在选定的时候变化!
//为何会这样?
//另外能否去掉 ownerdraw 时 eidt 框内的 黑唇?