Проблемы с WS_EX_NOACTIVATE

[bro]

Здравствуйте.

У меня следующая проблема. Есть окно с флагом WS_EX_NOACTIVATE (не становится активным от нажатий). Нужно сделать так, чтобы при перетаскивании мышкой было видно всю траекторию перетаскивания, а не только конечный результат.

Решение проблемы на c++ есть тут:

http://forum.vingrad.ru/forum/s/fc84...1749903/0.html

и тут:

http://www.codeproject.com/KB/system...framework.aspx

На дельфи я перевёл так:

procedure TSmallWnd.WMNCLButtonDown(var Msg : TWMNCLButtonDown);
begin
  inherited;
  // store current foreground window
  PreviousWnd := GetForegroundWindow;
  // temporarily make this dialog an activatable window
  SetWindowLong(SmallWnd.Handle, GWL_EXSTYLE, GetWindowLong(SmallWnd.Handle, GWL_EXSTYLE)
         or not(WS_EX_NOACTIVATE));
  // make this dialog foreground
  SetForegroundWindow(SmallWnd.Handle);
end;

procedure TSmallWnd.WMMove(var Msg: TWMMove);
begin
  inherited;
  // make the previous foreground window active
  SetForegroundWindow(PreviousWnd);
  // make this dialog non-activating
  SetWindowLong(SmallWnd.Handle, GWL_EXSTYLE, GetWindowLong(SmallWnd.Handle, GWL_EXSTYLE)
         or (WS_EX_NOACTIVATE));
  // set it to NULL to mark that we do not need to do this again
  PreviousWnd := 0;
end;

Только почему-то это не избавило от проблемы. Что я сделал неверно?

P.S.: поторопился. Их пример некорректно работает - фокус не возвращает.

[bro]

Решил свою проблему. Пользуйтесь, няши.

  private
    procedure CreateParams(var Params: TCreateParams); override;
    procedure WMMoving(var Msg: TMessage); message WM_MOVING;
    procedure WMSizing(var Msg: TMessage); message WM_SIZING;
  protected
    //
  public
    //
  end;

var
  SmallWnd: TSmallWnd;

implementation

{$R *.dfm}

procedure TSmallWnd.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;
end;

procedure TSmallWnd.WMMoving(var Msg: TMessage);
var
  Rect: ^TRect;
begin
  Rect := Pointer(Msg.LParam);
  SetWindowPos(SmallWnd.Handle, HWND_TOPMOST, Rect^.left, Rect^.top,
    Rect^.right - Rect^.left, Rect^.bottom - Rect^.top, 0);
end;

procedure TSmallWnd.WMSizing(var Msg: TMessage);
var
  Rect: ^TRect;
begin
  Rect := Pointer(Msg.LParam);
  SetWindowPos(SmallWnd.Handle, HWND_TOPMOST, Rect^.left, Rect^.top,
    Rect^.right - Rect^.left, Rect^.bottom - Rect^.top, 0);
end;

[YoraG]

Undeclared identifier: 'TSmallWnd' - откуда? откуда ноги растут?

[p51x]

Класс формы же видно по коду.