hint problem

[neumimnemecky]

Hi there,
I don't speak English, but I would like to ask you about problems regarding TControl.hint . I am using Delphi 7 personal and I have created a form in win32 application. I have buttons with hint which contain some characters from Central Europe charset. These characters are not displayed correctly when hint window is displayed. This is first problem. How to correct it?

Another problem with hint - I have created this method:

Code:

procedure TExport.onHintShow(Sender: TObject);
var Ctr: TControl;
begin
  Ctr := TControl(Sender);
  if Ctr is TComboBox then
    TControl(Sender).Hint := ''
  else
    if Ctr is TListBox then
      begin
        Ctr.Hint := 'Najeli jste myší na ovládací prvek, který automaticky zvětšil kolonku formuláře.';
        // Ctr.Left := export.ClientRect.Left;
        // Ctr.Top := export.ClientRect.Top;
      end;
end;

I add a breakpoint on the begin of the code.

Also I have this procedure:

Code:

procedure TExport.onFormCreate(Sender: TObject);
begin
  Application.HintPause := 100;
  Application.OnHint := onHintShow;
end;

So onHintShow is set when the form is visible. But the onHintShow event is not fired when I hover over the controls which should fire the event.