Цитата:
Сообщение от DJ PhoeniX
Гугл предлагает создавать новое окно вручную...
|
Delphi так и делает: THintWindow
Код:
procedure THintWindow.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style := WS_POPUP or WS_BORDER;
WindowClass.Style := WindowClass.Style or CS_SAVEBITS;
if NewStyleControls then
ExStyle := WS_EX_TOOLWINDOW;
// CS_DROPSHADOW requires Windows XP or above
if CheckWin32Version(5, 1) then
WindowClass.Style := WindowClass.style or CS_DROPSHADOW;
if NewStyleControls then ExStyle := WS_EX_TOOLWINDOW;
AddBiDiModeExStyle(ExStyle);
end;
end;
кста
if NewStyleControls then ExStyle := WS_EX_TOOLWINDOW; у всех 2 раза в коде?) это я просто скопировал кусок из Controls.pas.