Welche Nachricht muss ich abfangen?

[Chearly020664]

hi,

in den letzten Tagen habe ich gelernt u. begriffen wie man auf Nachrichten von Fenstern reagiert.-

Jetzt muss ich auf das Maximieren von Form reagieren, sowie auf das Verkleinern.

Steht irgendwo geschrieben welche Messages wann gesendet werden?

danke - Grüße

[TurboMagic]

Bei Microsoft in der MSDN Dokumentation mal geschaut?
Die WM_ Konstanten sollten da irgendwie zu finden sein denke ich.

[Chearly020664]

Die Microsoft MSDN Doku habe ich mir intensiv angeschaut. Leider finde ich nichts was anzeigt die Form wurde maximiert oder verkleinert. Auch in Delphi 7 ist kein Ereignis zu finden.-
Microsoft Windows Programmierung ist und bleibt ein kryptisches Geheimnis für mich, komplizierter geht es nicht.

Was ich auch noch machen wollte ist:
Hier wird nach einem Resize der Form eine Neuberechnung des Bildes vorgenommen, leider auch, wenn das Fenster nur verschoben wurde. Kann man letzteres verhindern?

Delphi-Quellcode:

procedure WMEXITSIZEMOVE(var Message: TMessage); message WM_EXITSIZEMOVE;
.
.
.
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
     inherited;
     Apfelmann1Click(self);   //berechne das Bild neu
end;

Ich habe noch einiges zu machen an diesem Spaß-Programm, aber ich lerne dazu ...

Grüße

[haentschman]

Moin...

Zitat:

Ich habe noch einiges zu machen an diesem Spaß-Programm, aber ich lerne dazu ...

...lernen, aber nicht mit einer Delphi Version aus 2002.

Lade dir doch die Community Edition herunter mit den neuen Sprachfeatures wie z.B. Generics.
https://www.embarcadero.com/de/produ.../free-download

[Chearly020664]

Zitat:

Lade dir doch die Community Edition herunter mit den neuen Sprachfeatures wie z.B. Generics.

Das würde ich machen, wenn ich damit meine altern angeknabberten Delphi 7 Projekte fortführen könnte.

Grüße

[haentschman]

Zitat:

Das würde ich machen, wenn ich damit meine altern angeknabberten Delphi 7 Projekte fortführen könnte

...geht alles.
Aber:
* Wie wichtig sind die Projekte für evt. Kunden?
* Manche Komponenten müssen getauscht werden. (weil es sie schlicht nicht mehr gibt)... Analyse, welche Features die alten hatten, die damals nicht verfügbar waren.
* Wie groß sind die Projekte?
* DB Anbindung modernisieren (- BDE, + Firebird etc.)

Wenn es nur "Spaßprojekte" sind, kann man mit der Umstellung auch viel lernen.

[KodeZwerg]

Zitat von Chearly020664:

hi,

in den letzten Tagen habe ich gelernt u. begriffen wie man auf Nachrichten von Fenstern reagiert.-

Jetzt muss ich auf das Maximieren von Form reagieren, sowie auf das Verkleinern.

Steht irgendwo geschrieben welche Messages wann gesendet werden?

danke - Grüße

Delphi-Quellcode:

unit Unit15;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm15 = class(TForm)
  protected
    procedure WMSysCommand(var msg: TWMSysCommand); message WM_SYSCOMMAND;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.WMSysCommand(var msg: TWmSysCommand);
begin
  case msg.CmdType of
    SC_MINIMIZE: ShowMessage('Minimize');
    SC_MAXIMIZE: ShowMessage('Maximize');
  end;

  inherited;
end;

end.

Ich hoffe das ist es was Du Dir erwünschst zu machen.