Savoir lorsque la résolution de l'écran est changée

...
type
...
private
procedure WMDisplayChange( var Message:TMessage);
message WM_DISPLAYCHANGE;
public
...
end;

...

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMDisplayChange( var Message: TMessage);
begin
ShowMessage('La résolution a été changée !');
inherited;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour05/02/2002
VisualisationVu 920 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur