Подсказка Форма и фокус

Question

Я показываю пользовательскую форму в качестве подсказки. Я хочу, чтобы окно подсказки не фокусировалось.

Enabled свойства формы намека установлено на False и я также обрабатывать сообщение WM_MOUSE_ACTIVATE окна и вернуться MA_NOACTIVATE. Тем не менее каждый раз, когда отображается окно подсказки, граница моего главного окна мерцает (Windows 7 с прозрачными границами).

Как я могу избежать этого мерцания?

Answer 1

Я предполагаю, что вы показываете свою собственную форму подсказки, когда вы обрабатываете Application.OnShowHint, например. следующим образом:

procedure TMainForm.ApplicationShowHint(var HintStr: string; 
    var CanShow: Boolean; var HintInfo: THintInfo); 
var 
    HintForm: THintForm; 
begin 
    CanShow := False; 
    HintForm := THintForm.Create(nil); 
    HintForm.HintLabel.Caption := HintStr; 
    HintForm.Left := HintInfo.HintPos.X; 
    HintForm.Top := HintInfo.HintPos.Y; 
    ShowWindow(HintForm.Handle, SW_SHOWNOACTIVATE); 
end; 

Последняя строка делает трюк здесь с D7 (и с THintFrom в нормальной форме с настройками по умолчанию, например, Enabled = True) на XP и W7.