...benachrichtigt werden, wenn die Bildschirmauflösung geändert wird?

Autor: Thomas Stutz

Kategorie: System

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base