SetWindowLong(handle,GWL_EXSTYLE, WS_EX_CLIENTEDGE) не работает под классом

[BLACK_RAIN]

Здравствуйте.
Нужно изменить расширеный стиль окна в классе TWinApiPanel. За это отвечает свойство StyleEx базового
класса TWinApiBase и процедура SetStyleEx.

type
  TWinApiBase = class(TObject)
    private
      fHandle : HWND;
	  {.......}
	  fStyle : Cardinal;
      fStyleEx : Cardinal;
      procedure SetStyleEx(NewStyleEx : Cardinal); virtual;
	  {..........}
    public
      constructor Create(ParentWnd : HWND); virtual;
      destructor Destroy; virtual;
	  {...........}
      property Handle : HWND read fHandle;
	  {...........}
      property StyleEx: Cardinal read fStyleEx write SetStyleEx;
  end;

type
  TWinApiPanel = class(TWinApiBase)
    private
      fText : string;
      procedure SetText(t : string);
	  {.........}
    public
      constructor Create(ParentWnd : HWND); virtual;
      destructor Destroy; virtual;
      property Text : string read fText write SetText;
  end;

implementation

constructor TWinApiBase.Create(ParentWnd: HWND);
begin
  fLeft := 0;
  fTop := 0;
  fWidth := 0;
  fHeight := 0;
  fStyle := WS_CHILD or WS_VISIBLE;
  fStyleEx := WS_EX_ACCEPTFILES;
end;

destructor TWinApiBase.Destroy;
begin
  Exit;
end;

procedure TWinApiBase.SetStyleEx(NewStyleEx: Cardinal);
var
  res : LongInt;
begin
  res := SetWindowLong(Handle,GWL_EXSTYLE, NewStyleEx);
  fStyleEx := NewStyleEx;
end;






constructor TWinApiPanel.Create(ParentWnd: HWND);
begin
  inherited Create(ParentWnd);
  fhandle := CreateWindowExW(fStyleEx,'Static','',
  fStyle, 0,0,0,0, ParentWnd,0, hInstance, nil);
//  StyleEx := WS_EX_CLIENTEDGE;
end;

destructor TWinApiPanel.Destroy;
begin
  DestroyWindow(fHandle);
  inherited;
end;

procedure TWinApiPanel.SetText(t: string);
begin
  SendMessage(fHandle, WM_SETTEXT, 0, lparam(LongInt(t)));
  fText := t;
end;

В коде программы делаю так:

    WM_CREATE:
    begin
      lab := TWinApiPanel.Create(wnd);
      lab.SetPositionSize(0,70,400,400);
      lab.Text := 'text';
      lab.StyleEx := WS_EX_CLIENTEDGE;  //выполняется, но не работает.
    end;

    wm_destroy :
    Begin
      lab.Free;
    end;

При попытке изменить свойство StyleEx внешний вид окна не меняется. И даже если
напрямую вызвать SetWindowLong(lab.Handle,GWL_EXSTYL E, WS_EX_CLIENTEDGE) - всё-равно ничего не меняется.
А если делать это в конструкторе класса TWinApiPanel - тогда работает.
Почему так и можно ли это решить?

[p51x]

Где вызов SetWindowPos ?

[BLACK_RAIN]

Сообщение от p51x

Где вызов SetWindowPos ?

вот:

procedure TWinApiPanel.SetPositionSize(x: SmallInt; y: SmallInt; w: SmallInt; h: SmallInt);
begin
  MoveWindow(fHandle,x,y,w,h,True);
  inherited;
end;

а разве это имеет значение?

[p51x]

1. это не вызов, а определение метода
2. этот SetPositionSize к SetWindowPos мало имеет отношение, даже названия разные
3.

а разве это имеет значение?

Да не, просто в офф документации всякую фигню пишут, типа:

Certain window data is cached, so changes you make using SetWindowLong will not take effect until you call the SetWindowPos function. Specifically, if you change any of the frame styles, you must call SetWindowPos with the SWP_FRAMECHANGED flag for the cache to be updated properly.

[BLACK_RAIN]

согласен, лохонулся