Как получить сообщение об изменении видео стиля? |
Previous Top Next |
Code: |
const WM_THEMECHANGED = $031A;
type TForm1 = class(TForm) {...} private public procedure WMTHEMECHANGED(var Msg: TMessage); message WM_THEMECHANGED; end;
{...}
implementation
{...}
procedure TForm1.WMTHEMECHANGED(var Msg: TMessage); begin Label1.Caption := 'Theme changed'; Msg.Result := 0; end; |
©Drkb::00401
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php