Определить, что изменились настройки экрана

Советы » Монитор и Экран » Определить, что изменились настройки экрана

type

{...} private

procedure

WMDisplayChange(var

msg: TMessage); message

WM_DISPLAYCHANGE; public

{...} end

; end

; var

Form1: TForm1; implementation

{$R *.DFM} procedure

TForm1.WMDisplayChange(var

msg: TMessage); begin

ShowMessage('Display settings changed!'); inherited

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com