为什么动态创建的控件的Hint不显示？(50)

我动态创建了一组Tcontrol的控件，运行时Hint不显示，不知为什么，请各位看看代码如下：procedure TForm1.Button1Click(Sender: TObject);var i: integer;begin for i := 1 to 50 do begin Panel := TControl.Create(Self); Panel.Parent := Form1; Panel.Top := List.Count * 15; Panel.Left := 0; Panel.Height := 15; Panel.Width := 80; Panel.Hint := IntToStr(List.Count * 15); Panel.ShowHint:=True; List.Add(Panel); end;end;procedure TForm1.Button2Click(Sender: TObject);begin while List.Count > 0 do begin TControl(List.Items[List.Count - 1]).Free; List.Delete(List.Count - 1); end;end;procedure TForm1.FormCreate(Sender: TObject);begin list := TList.Create;end;procedure TForm1.FormDestroy(Sender: TObject);begin list.Free;end;

试过了，以上代码可以正常显示hint估计是你其他代码影响的原因

可以显示啊。