Maximize/Restore Button

[KyroxX]

Benutze dazu:

Delphi-Quellcode:

procedure Tmain.maximize_bntClick(Sender: TObject);
var
  h:HWnd;
begin
  h:=handle;
  postmessage(h,WM_SYSCOMMAND,SC_MAXIMIZE,0):=not
  postmessage(h,WM_SYSCOMMAND,SC_RESTORE,0);
end;

sollte ds nicht eigentlich hinhauen?
Bekomme: "Left side cannot be assigned"

[Alexander]

Was genau willst du erreichen?
Mach mal das not weg (was genau willst du damit bezwecken?)...
Oder meinst du das:

Delphi-Quellcode:

  not := postmessage(h,WM_SYSCOMMAND,SC_MAXIMIZE,0)
  postmessage(h,WM_SYSCOMMAND,SC_RESTORE,0);

[nTE]

Du versuchst einer Funktion einen Wert zuzuweisen und das kann nicht klappen.

Das hier meine ich:
postmessage(h,WM_SYSCOMMAND,SC_MAXIMIZE,0):=not

btw, da fehlt ein ;


Ich glaube du müsstest für so einen Maximize/Restore-Button den WindowState der MainForm abfragen und ich glaube auch, dass du darüber so einen Button realisieren kannst, ganz ohne PostMessage.
Allerdings bin ich mir nicht 100% sicher verstanden zu haben was du genau machen willst, jedenfalls nicht aus deinem Code. :P

[KyroxX]

re

Angenommen ich hab nen Button namens "Button1"
Der hat nen "onClick" event wo drin steht
postmessage(h,WM_SYSCOMMAND,SC_MAXIMIZE,0)

Ich will jetzt, das der, wenn ich da nochmal draufklicke, das macht:
postmessage(h,WM_SYSCOMMAND,SC_RESTORE,0);
um in den ursprünglichen Modus zurückzukehren.

Wär cool wenns da ne einfache lösung gaäb und p.s.:
Ich hab momentan nen Brett vorm Kopf

[nTE]

Vielleicht habe ich das auch ein wenig zu unauffällig geschrieben aber auf jeden Fall erwähnt.. naja Codebeispiel folgt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form1.WindowState = wsMaximized then
    Form1.WindowState := wsNormal
  else
    Form1.WindowState := wsMaximized;
end;

Ich hoffe, dass es das ist was du machen willst, da du immernoch nicht klar ausdrückst was du machen willst (von der Funktionalität her).
Muss es denn unbedingt PostMessage sein?

[KyroxX]

Hmm, das wars was ich brauchte
THX

Aber was hast du eigentlich gegen post message? *grins*

8)

[nTE]

Hehe, an sich nichts, aber solange Delphi ausreichende Möglichkeiten zur Verfügung stellt, würde ich nicht unbedingt auf API-Funktionen zurückgreifen. =)