Fenster schliessen / "Systemkreuz"

lambruco · Beiträge: 100 Win 2000/2000 Server/XP D6 Prof.

Ich weiss, der Titel sagt nicht viel aus, aber ich wusste nicht wie ich es besser umschreiben sollte.
Ich möchte eigentlich nur wissen, ob man feststellen kann, ob das "Systemkreuz" zum Schliessen benutzt wurde.

_________________
Wer Rechtschreibfehler findet, kann Sie behalten

MSCH · Verfasst: Mi 24.09.03 15:26

ja, indem man die Nachricht WM_SYSCOMMAND und WPARAM = SC_CLOSE abfängt.
grez
msch

_________________
ist das politisch, wenn ich linksdrehenden Joghurt haben möchte?

lambruco · Beiträge: 100 Win 2000/2000 Server/XP D6 Prof.

Hört sich gut an, bräuchte jetzt nur noch einen Tipp, wie ich die
Message abfange, etwa mit getMessage ?
Etwas Code oder ein hilfreicher Link wäre auch schön.

_________________
Wer Rechtschreibfehler findet, kann Sie behalten

MSCH · Verfasst: Mi 24.09.03 15:43

in der Form im Public Bereich:

markieren

Delphi-Quelltext

1:	procedure WMSysCommand(var Msg:TMessage);Message wm_syscommand;

im Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TMain.WMSyscommand(var Msg: TMessage);
begin
  if Msg.wParam=SC_CLOSE then begin
    // tu was
  end else
    inherited;
end;

grez
msch

_________________
ist das politisch, wenn ich linksdrehenden Joghurt haben möchte?

lambruco · Beiträge: 100 Win 2000/2000 Server/XP D6 Prof.

Danke für die schnelle Hilfe, funktioniert wunderbar.

_________________
Wer Rechtschreibfehler findet, kann Sie behalten

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme