Hi Micha,
du hast da wahrscheinlich eine unglückliche Verkettung von Ereignissen. Grundsätzlich wird beim Maximieren bzw. Minimieren nur ein event erzeugt. Habe es gerade mit einem leeren D2 Projekt ausprobiert:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 =
class(TForm)
procedure FormResize(Sender: TObject);
private
FResizeCount: Integer;
public
procedure IncResizeCount;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.IncResizeCount;
begin
Inc(FResizeCount);
Caption := IntToStr(FResizeCount);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
IncResizeCount;
end;
end.
Grüße vom marabu