Desktop anzeigen (ToggleDesktop) - Wie ignorieren?

[stahli]

Hallo hollisoft,

ich habe schnell mal herumprobiert:

Delphi-Quellcode:

procedure TFormTest.FormActivate(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'1'
end;

procedure TFormTest.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
sysutils.beep;
caption:=caption+'2'
end;

procedure TFormTest.FormClick(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'3'
end;

procedure TFormTest.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sysutils.beep;
caption:=caption+'4'
end;

procedure TFormTest.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
sysutils.beep;
caption:=caption+'5'
end;

procedure TFormTest.FormConstrainedResize(Sender: TObject; var MinWidth,
  MinHeight, MaxWidth, MaxHeight: Integer);
begin
sysutils.beep;
caption:=caption+'6'
end;

procedure TFormTest.FormContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
sysutils.beep;
caption:=caption+'7'
end;

procedure TFormTest.FormCreate(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'8'
end;

procedure TFormTest.FormDblClick(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'9'
end;

procedure TFormTest.FormDeactivate(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'0'
end;

procedure TFormTest.FormDestroy(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'a'
end;

procedure TFormTest.FormDockDrop(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer);
begin
sysutils.beep;
caption:=caption+'b'
end;

procedure TFormTest.FormDockOver(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
sysutils.beep;
caption:=caption+'c'
end;

procedure TFormTest.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
sysutils.beep;
caption:=caption+'d'
end;

procedure TFormTest.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
sysutils.beep;
caption:=caption+'e'
end;

procedure TFormTest.FormGetSiteInfo(Sender: TObject; DockClient: TControl;
  var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);
begin
sysutils.beep;
caption:=caption+'f'
end;

function TFormTest.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
sysutils.beep;
caption:=caption+'g'
end;

procedure TFormTest.FormHide(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'h'
end;

procedure TFormTest.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
sysutils.beep;
caption:=caption+'i'
end;

procedure TFormTest.FormKeyPress(Sender: TObject; var Key: Char);
begin
sysutils.beep;
caption:=caption+'j'
end;

procedure TFormTest.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
sysutils.beep;
caption:=caption+'k'
end;

procedure TFormTest.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
sysutils.beep;
caption:=caption+'l'
end;

procedure TFormTest.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sysutils.beep;
caption:=caption+'m'
end;

procedure TFormTest.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
sysutils.beep;
caption:=caption+'n'
end;

procedure TFormTest.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
sysutils.beep;
caption:=caption+'o'
end;

procedure TFormTest.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
sysutils.beep;
caption:=caption+'p'
end;

procedure TFormTest.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
sysutils.beep;
caption:=caption+'q'
end;

procedure TFormTest.FormPaint(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'r'
end;

procedure TFormTest.FormResize(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'s'
end;

procedure TFormTest.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
sysutils.beep;
caption:=caption+'t'
end;

procedure TFormTest.FormShow(Sender: TObject);
begin
sysutils.beep;
caption:=caption+'u'
end;

procedure TFormTest.FormStartDock(Sender: TObject;
  var DragObject: TDragDockObject);
begin
sysutils.beep;
caption:=caption+'v'
end;

procedure TFormTest.FormUnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
sysutils.beep;
caption:=caption+'w'
end;

Demnach wird beim Drücken der Win-Taste FormShortCut(var Msg: TWMKey; var Handled: Boolean);
aufgerufen. Vermutlich musst Du die Ereignisbehandlung dann abbrechen oder z.B. danach per Timer Show aufrufen...


Stahli