AnnoZone Forum

Quellcode

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure GetMessages(var msg: TMsg; var handled: boolean);
   { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

procedure TForm1.GetMessages(var msg: TMsg; var handled: boolean);
var formrechts: integer;
begin

if (msg.message = 274) OR (msg.message = 275) then begin
  //Klick auf SystemButon im blauen
  if Form1.WindowState = wsNormal then begin
    //im normalen Zustand wird gedrückt
    formrechts := Form2.Left + Form2.Width;
    if (msg.pt.X > formrechts - 90) and (msg.pt.X < formrechts- 50) then begin
      //X Kordinaten (wurde auf minimiert gedrückt?)
      ShowWindow(Unit2.Form2.Handle,SW_NORMAL);
      //Form wieder zeigen
      Application.Minimize;
      //nun ganze Anwendung minimieren
    end;
  end;
end;

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=GetMessages;
  KeyPreview := true;
end;

Quellcode

WM_STYLECHANGED Notification

The WM_STYLECHANGED message is sent to a window after the SetWindowLong function has changed one or more of the window's styles.

Quellcode

 TWMStyleChange = packed record
    Msg: Cardinal;
    StyleType: Longint;
    StyleStruct: PStyleStruct;
    Result: Longint;
  end;

Quellcode

  private
  { Private-Deklarationen }
    procedure WMSTYLECHANGED(var Msg: TWMSTYLECHANGED);message WM_STYLECHANGED;