fra minimeret til maksimeret

Application.onMinimize () ?


Jens B

du har lavet lort

>>  Application.onMinimize () ?
ja - men hvor er det nu jeg bruger/kalder den?

Stop en TApplicationMessage komponent på din form og prøv det her

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  AppEvnts;

type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
  private
    { Private declarations }
  public
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  case Message.CmdType of
      SC_MINIMIZE:
      begin
        ShowMessage('FORM Minimize');
      end;
      SC_RESTORE:
      begin
        ShowMessage('FORM Restore');
      end;
      SC_MAXIMIZE:
      begin
        ShowMessage ('FORM Maximize');
      end;
    end;
    inherited;
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean);
begin
  if not Msg.message = WM_SYSCOMMAND then
    exit;

  case Msg.wParam of
      SC_MINIMIZE:
      begin
        ShowMessage('APP Minimize');
      end;
      SC_RESTORE:
      begin
        ShowMessage('APP Restore');
      end;
      SC_MAXIMIZE:
      begin
        ShowMessage ('APP Maximize');
      end;
    end;
end;

end.


Jens B

rolig nu jens :-)
der skulle bare ske noget når der blev trykket på programmet fra når det lå på processlinien og blev maksimeret.

så skriver mit lille program
ShowMessage('APP Restore');

Jens B

ok prøver lige - hvor ligger komponenten??

på Addtional. Nummer 3 fra højre.

prøv at slå
WM_SYSCOMMAND hvis du vil vide noget mere om hvad du kan skrive i din case

Jens B

tak

det var den ikke på min (Delphi 4)

så må du jo mappe den op i hånden :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  AppEvnts;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ApplicationEventsMessage(var Msg: tagMSG;  var Handled: Boolean);
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  case Message.CmdType of
      SC_MINIMIZE:
      begin
        ShowMessage('FORM Minimize');
      end;
      SC_RESTORE:
      begin
        ShowMessage('FORM Restore');
      end;
      SC_MAXIMIZE:
      begin
        ShowMessage ('FORM Maximize');
      end;
    end;
    inherited;
end;

procedure TForm1.ApplicationEventsMessage(var Msg: tagMSG;  var Handled: Boolean);
begin
  if not Msg.message = WM_SYSCOMMAND then
    exit;

  case Msg.wParam of
      SC_MINIMIZE:
      begin
        ShowMessage('APP Minimize');
      end;
      SC_RESTORE:
      begin
        ShowMessage('APP Restore');
      end;
      SC_MAXIMIZE:
      begin
        ShowMessage ('APP Maximize');
      end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := ApplicationEventsMessage;
end;

end.


Jens B

ok - tak for det - jeg er jo ikke ligefrem en haj men det går nok nu! :)

hmm - den skriver:
[Fatal Error] Unit1.pas(7): File not found: 'AppEvnts.dcu'
når jeg tilføjer AppEvnts i uses, det skal jeg måske ikke??
(skal nok oprette et nyt spørgsmål hvis du synes)

juhuu - det virker - super - tak

nej slet du bare den ....

Jens B

selvfølgelig virker det ... Eller tilføj flere heste.

:-)

Jens B

hvordan kan det virke uden jeg har tilføjet

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := ApplicationEventsMessage;  <---  den line
end;

i form.create??

shit når man trykker på den fra process-linien er det ikke som restore!

til din egen orientering (jeg synes det er mærkeligt):

når:  Application.OnMessage := ApplicationEventsMessage;

ikke er tilføjet i form.create, virker det når man trykker på de tre ikoner oppe til højre (max-min-restore), men ikke når den restores fra process-linien.
når linien bliver tilføjet virker den også fra process-linien ?? fatter det ikke
nå - jeg skal nok holde kæft i det her spørgsmål nu :-)

Er det så svært at forstå .. Det ene pille du i forment message kø. Den anden piller du i din applikations message kø.

Hvis du ikke mapper Application.OnMessage op til noget tja så bliver dit kode ALDRIG kaldt ....

Kode der ikke bliver kaldt kan du heler ikke forvente gør noget :-)

Jens B