Доброго времени суток всем!!!! У меня такой вопрос: Как мне сделать Hint овальным???
Я использую процедуру:
/////////////////////////////////////////////////////////////////
procedure MyShowHint(var HintStr: string; var CanShow: Boolean;var HintInfo: THintInfo);
///////////////////////////////////////////////////////////////////////
procedure TForm1.MyShowHint(var HintStr: string; var CanShow: Boolean;
var HintInfo: THintInfo);
var
i : integer;
begin
for i := 0 to Application.ComponentCount - 1 do
if Application.Components[i] is THintWindow then
with THintWindow(Application.Components[i]).Canvas do
begin Font.Name:= 'Comic Sans MS';
Font.Size:= 10;
Font.Style:= [fsBold];
HintInfo.HintColor:= clGreen;
end;
end;
///////////////////////////////
Ну и соответственно
/////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
Begin
application.OnShowHint:=myshowhint;
