Thema: Delphi Programm "Deaktivieren"

Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Programm "Deaktivieren"

  Alt 28. Feb 2004, 20:06
WS_EX_TOPMOST ist ein erweiterter Windows-Stil. Und keine Nachricht, die man mit SenMessage an irgend was verschicken könnte.
So geht es mehr oder weniger:
Delphi-Quellcode:
procedure TForm1.WndProc(var msg: TMessage);
var
  hWnd: THandle;
begin
  inherited;
  case msg.Msg of
    WM_ACTIVATE:
    begin
      if msg.WParam = WA_ACTIVE then
      begin
        hWnd := GetWindow(Handle, GW_HWNDPREV);
        SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE);
      end;
    end;
  end;
end;
Musst du wohl noch etwas darn rumfeilen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat