Form vergrössern ?

[thomas2009]

Hallo

da die Form2 kein mainform ist, minimiere ich sie mit dem Code:

Delphi-Quellcode:

procedure TForm2.WMSyscommand(Var msg: TWmSysCommand);
begin
  if (msg.cmdtype and $FFF0 = SC_MINIMIZE) then
    begin
Application.Minimize;
Form2.Hide;
  end;
  inherited;
end;

die Form wird nicht minimiert sondern versteckt
Über das Programm icon neben Uhr z.B. TryIcon rufe ich die Form2 wieder :

Delphi-Quellcode:

Form2.Show;

Die Form2 wird zwar wieder sichtbar aber sie bleibt neben dem Icon "Start" von Windows

was muss ich machen, damit meine Form2 beim Aufrufen von Trayicon gleichzeitig maximiert ?

[rich123]

ich denke den Befehl den du suchst ist

Delphi-Quellcode:

Form2.Close

Gruß

[thomas2009]

Hide oder Close ist das Problem immer das selbe

[omata]

Delphi-Quellcode:

Self.WindowState := wsMaximized;

[thomas2009]

Zitat:

Zitat von omata

Delphi-Quellcode:

Self.WindowState := wsMaximized;

Es geht mit deinem Vorschlag noch besser. aber nicht ganz
Nun wird mindestens die Form maximiert mit dem Code :

Delphi-Quellcode:

//Self.WindowState := wsMaximized;
Form2.WindowState := wsMaximized;

ich möchte aber gerne die Form2 normal sehen und nicht ganz maximiert

Ich möchte den Event wie ein Click auf das Icon wie im Bild

[omata]

Versuch es mal so...

Delphi-Quellcode:

Self.Visible:=true;
SetForegroundWindow(Self.Handle);

[SirThornberry]

Besser ist es doch die Ursache zu verhindern. Wenn jemand den Form minimieren Knopf drückst wird derzeit das Form minimiert und zusätzlich das minimieren noch ausgeführt. Führe das inherited doch nur aus wenn die Ursprüngliche Aktion auch durchgeführt werden soll. Oder noch besser - wenn minimieren nicht erlaubt sein soll einfach bei den Bordericons das Minimieren raus nehmen. Denn das Verhalten was hier gewollt ist, ist ein schließen und kein minimieren.

[thomas2009]

Zitat:

Zitat von SirThornberry

Besser ist es doch die Ursache zu verhindern. Wenn jemand den Form minimieren Knopf drückst wird derzeit das Form minimiert und zusätzlich das minimieren noch ausgeführt. Führe das inherited doch nur aus wenn die Ursprüngliche Aktion auch durchgeführt werden soll. Oder noch besser - wenn minimieren nicht erlaubt sein soll einfach bei den Bordericons das Minimieren raus nehmen. Denn das Verhalten was hier gewollt ist, ist ein schließen und kein minimieren.

meinst diesen Code :

Delphi-Quellcode:

procedure TForm2.WMSyscommand(Var msg: TWmSysCommand);
begin
  if (msg.cmdtype and $FFF0 = SC_MINIMIZE) then
    begin
Application.Minimize;
Form2.Hide;
  end
else
exit;
end;
  inherited;
end;

Habe ich auch getestet: Form2 wird nicht in Taskbar minimiert

auch diesen code :

Delphi-Quellcode:

Self.Visible:=true;
SetForegroundWindow(Self.Handle);

ich würde den Vorschlag von omata nehmen ; )

Delphi-Quellcode:

procedure TForm2.WMSyscommand(Var msg: TWmSysCommand);
begin
//Self.WindowState := wsMaximized;
//Form2.WindowState := wsMaximized;
Form2.WindowState := wsNormal;
end;