Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Welchens Ereignis wenn Click auf Taskleiste


GuaAck - Mo 17.12.12 01:09
Titel: Welchens Ereignis wenn Click auf Taskleiste
Hallo,

wenn ich in einem Windows-Fenster ganz oben rechts auf "_" klicke, dann verschwindet das Fenster und es wird das Programm-ICON unten in der Taskleiste angezeigt. Wenn das mit meinem Programm gemacht wird, dann soll die Priorität meines vermindert werden. Ich fange die WM_NCLBUTTONDOWN-Message ab, geht bestens.

Wenn ich nun in der Taskleiste auf meine Anwendung klicke und dnan das Fenster wieder angezeigt wird, dann soll die Priorität wieder auf "normal" gesetzt werden. Aber auf welche Message muss ich dafür reagieren?

Grüße
GuaAck


bummi - Mo 17.12.12 01:38


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm6 = class(TForm)
    Memo1: TMemo;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
   procedure WMSysCommand(var message:TMessage);message WM_SysCommand;
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}
procedure TForm6.WMSysCommand(var message:TMessage);
begin
if message.wparam =SC_MINIMIZE then Memo1.lines.add('SC_MINIMIZE')
else if message.wparam =SC_RESTORE then Memo1.lines.add('SC_RESTORE');
inherited;
end;



end.