Как получить сообщение об изменении видео стиля?
Falk0ner, вс, 06/07/2008 - 15:34.
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;
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;
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Отправить комментарий