Thema: Delphi Wm_devicechange

Einzelnen Beitrag anzeigen

charly52

Registriert seit: 2. Sep 2018
Ort: Salem, Baden
102 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Wm_devicechange

  Alt 28. Sep 2021, 16:41
Hi all,

weiß jemand wie man die Windows Message WM_DEVICECHANGE abfangen und ggf. darauf reagieren kann
Den folgenden Code (im MainForm) habe ich schon probiert, aber die Procedure WndProc() wird nichteinmal
vom Compiler angefasst oder vom Linker wieder verworfen. Keine blauen Codezeilenpunkte in der IDE!


Delphi-Quellcode:
type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;

    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private {- declarations }

  public {- declarations }
  protected
    procedure WndProc(var Message: TMessage);
  end;
Delphi-Quellcode:
procedure TForm2.WndProc(var Message: TMessage);
begin
  if (Message.Msg = WM_DEVICECHANGE) then
  begin
       ShowMessage('Was geändert');
  end;

  inherited WndProc(Message); { Ansonsten normale Verarbeitung }
end;
Was fehlt da noch?

Danke Charly
  Mit Zitat antworten Zitat