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. :roll:

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...:P

Zitat:

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

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

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

:wink:

[Chearly020664]

Zitat:

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

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. :wink:
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. :thumb:

[Chearly020664]

Zitat:

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

Es sind eigentlich alles nur Spaß-Projekte für mich. Allerdings habe ich einige Objekt-Pascal-Programme mit angelinkten, großen Assemblerroutinen wie Fourier-Transformationen und sowas.

Grüß

[TurboMagic]

Zitat:

Zitat von Chearly020664 (Beitrag 1490585)

Zitat:

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

Es sind eigentlich alles nur Spaß-Projekte für mich. Allerdings habe ich einige Objekt-Pascal-Programme mit angelinkten, großen Assemblerroutinen wie Fourier-Transformationen und sowas.

Grüß

Die Assembler Sachen gehen alle noch. Du kannst mit der 10.3 CE weiterhin Win32 Programme schreiben, da geht das alles noch.
Auch die 64 Bit Version von Delphi (in der CE enthalten) kann noch Assembler, bloß halt nicht mehr als ASM Blöcke direkt
an einer beliebigen Code Stelle, sondern immer als ganze Methode/Prozedur/Funktion. Hat was mit der Aufrufkonvention oder so zu tun.

Auch die IDE der CE bietet gegenüber deinem D7 weitere Vorteile.

Und falls du wissen wiollst, welche Nachrichten dein Programm alle bekommt: es gibt eine nicht visuelle ApplicationEvents Komponente,
die kann man auf eine Form packen und dort einen Eventhandler erzeugen der alle Nachrichten sieht bevor die der eigentliche Empfänger
sieht.

Und das mit "Fenster verschieben löst auch ein Resize Event aus" könntest du behandeln, in dem du beim Programmstart die Fenstergröße
merkst und im Resize Event prüfst, ob sich die überhaupt geändert hat. Falls ja musst du dir natürlich die neue Größe merken ;-)

Grüße
TurboMagic

[Chearly020664]

Ja danke, ich werde mich damit nochmals beschäftigen.-

Zitat:

Und das mit "Fenster verschieben löst auch ein Resize Event aus" könntest du behandeln, in dem du beim Programmstart die Fenstergröße
merkst und im Resize Event prüfst, ob sich die überhaupt geändert hat. Falls ja musst du dir natürlich die neue Größe merken ;-)

Ok, das geht auch ...

Grüße

[Chearly020664]

Delphi-Quellcode:

procedure WMEXITSIZEMOVE(var Message: TMessage); message WM_EXITSIZEMOVE;
.
.
.
Form1WidthAlt:=Form1.Width;
Form1HeightAlt:=Form1.Height;
.
.
.
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
     If (Form1.Width<>Form1WidthAlt) or (Form1.Height<>Form1HeightAlt) then
     begin
          inherited;
          Apfelmann1Click(self);
     end;
end;

Elegant ist das nicht, aber funktioniert.:roll:

Jetzt muss ich noch auf Form1-Maximieren und Form1-Verkleinern reagieren, dann bin ich mit dem Programm fertig.

Gruß

[dummzeuch]

Zitat:

Zitat von TurboMagic (Beitrag 1490587)

Die Assembler Sachen gehen alle noch. Du kannst mit der 10.3 CE weiterhin Win32 Programme schreiben, da geht das alles noch.

Auch die IDE der CE bietet gegenüber deinem D7 weitere Vorteile.

Bitte nicht die Nachteile der CE verschweigen:

1. Im Vergleich zur extrem stabilen und schnellen IDE von Delphi 7 ist es ein behäbiger Koloss mit einer Vielzahl von Bugs.

2. Es basiert nicht etwa auf der aktuellen Version 10.4 sondern auf der vorherigen Version 10.3 von Delphi. Ein Update ist zwar mehrfach angekündigt worden, aber inzwischen habe zumindest ich große Zweifel, ob es je kommen wird. (Gibt es für die CE eigentlich wenigstens die Updates und Bugfixes der Version 10.3? Ich habe das nicht verfolgt.)

3. Eine Lizenz ist immer nur für ein Jahr gültig, dann muss man sich eine neue besorgen. Bisher ging das wohl problemlos, aber es ist nicht garantiert, dass das auch zukünftig so bleibt.

4. wegen 3. kann es aufwändig sein, ein Projekt von Delphi 10.3 auf Delphi 7 zurückzuportieren, falls es die CE irgendwann nicht mehr gibt.

Ich glaube, ich würde mir in dieser Situation (also Programmiererfahrung und diverse Projekte in Delphi 7) die CE mal ansehen, aber ob ich wirklich umsteigen würde, bezweifle ich.

[Chearly020664]

Zitat:

Bitte nicht die Nachteile der CE verschweigen:

1. Im Vergleich zur extrem stabilen und schnellen IDE von Delphi 7 ist es ein behäbiger Koloss mit einer Vielzahl von Bugs.

2. Es basiert nicht etwa auf der aktuellen Version 10.4 sondern auf der vorherigen Version 10.3 von Delphi. Ein Update ist zwar mehrfach angekündigt worden, aber inzwischen habe zumindest ich große Zweifel, ob es je kommen wird. (Gibt es für die CE eigentlich wenigstens die Updates und Bugfixes der Version 10.3? Ich habe das nicht verfolgt.)

3. Eine Lizenz ist immer nur für ein Jahr gültig, dann muss man sich eine neue besorgen. Bisher ging das wohl problemlos, aber es ist nicht garantiert, dass das auch zukünftig so bleibt.

4. wegen 3. kann es aufwändig sein, ein Projekt von Delphi 10.3 auf Delphi 7 zurückzuportieren, falls es die CE irgendwann nicht mehr gibt.

Ich glaube, ich würde mir in dieser Situation (also Programmiererfahrung und diverse Projekte in Delphi 7) die CE mal ansehen, aber ob ich wirklich umsteigen würde, bezweifle ich.

Ja, das ist mir auch durch den Kopf gegangen. Übrigens schreibe ich mit Delphi 7 meist nur zur Eigenverwendung und bis jetzt bin ich damit ausgekommen.

Grüße

[himitsu]

Tja, hättet ihr euch die Turbos geholt, dann wäre man immerhin auf dem Stand von Delphi 2006/2007 :roll:

Zitat:

procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);

If (Form1.Width

Wer sowas macht, gehört mindestens die Hände abehackt.

Man verwendet niemals "irgendeine" globale Variable, wenn man bereits in dem Objekt drin steckt, denn in der Variable muß nicht das drin sein, was man denkt.
Wer unbedingt eine Variable braucht, der hat gefälligst Self zu nutzen.
[edit] OK, vielleicht ein klein bissl drastisch, diese Lösung, aber so macht man es definitiv niewieder falsch. :angle2:

[KodeZwerg]

Zitat:

Zitat von Chearly020664 (Beitrag 1490573)

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.

[KodeZwerg]

Zitat:

Zitat von himitsu (Beitrag 1490629)

Wer sowas macht, gehört mindestens die Hände abehackt.

:shock::shock::shock:
Zumindest sollte man noch einmal darüber nachdenken was man dort macht und wie man es macht, Hände ab ist zu drastisch, Kopf in ein Delphi/OOP Handbuch stecken genügt hier völlig.