Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#6

Re: Durchsichtiges Fenster (nicht Alpha Blend)

  Alt 7. Nov 2003, 03:26
Z.B. das wäre bestimmt hilfreich:
Delphi-Quellcode:
type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    procedure WMHOTKEY(var Message: TWMHOTKEY); message WM_HOTKEY;
  public
    { Public-Deklarationen }
  end;
Delphi-Quellcode:
procedure TForm1.WMHOTKEY(var Message: TWMHOTKEY);
begin
  If (Message.HotKey = IDHOT_SNAPDESKTOP) then
    TuWasMitDesktopScreenshot;
  else
  If (Message.HotKey = IDHOT_SNAPWINDOW) then
    TuWasMitFensterScreenshot;
end;
Delphi-Quellcode:
  RegisterHotKey(Handle, IDHOT_SNAPDESKTOP, 0, VK_SNAPSHOT);
  RegisterHotKey(Handle, IDHOT_SNAPWINDOW, MOD_CONTROL, VK_SNAPSHOT);
Genauere Infos gibts in der Windows SDK

PS: Für diese beiden speziellen Hotkeys sind IDHOT_SNAPDESKTOP und IDHOT_SNAPWINDOW bereits vordefinierte Konstanten, es können dafür meines wissens keine anderen IDs verwendet werden.
  Mit Zitat antworten Zitat