parent minimieren

[khh]

Zitat von DeddyH:

Wäre es nicht besser, mit GetParentForm das Elternformular zu ermitteln? Parent kann ja auch z.B. ein Panel sein.

ich denke du hast recht,
und dann in abhängigkeit des ergebnises minimieren.

[khh]

Zitat von khh:

Zitat von DeddyH:

Wäre es nicht besser, mit GetParentForm das Elternformular zu ermitteln? Parent kann ja auch z.B. ein Panel sein.

ich denke du hast recht,
und dann in abhängigkeit des ergebnises minimieren.

ich danke euch, so funktionierts richtig:


parentForm:= GetParentForm(self);
if (Parent.ClassType.InheritsFrom(TForm)) then
begin
SendMessage(parentForm.handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;


gruss Kh

[khh]

um das ganze noch zu erweitern, würde ich gerne diese message im parent abfragen und unterschiedlich darauf reagieren.

wenn ich mir die msg im parent anzeigen lasse hab ich den integerwert, der jedesmal anders ist, wie weiter ?


Es soll quasi das parent dann entscheiden ob es das minimize kommando ausführt.
Geht das, und wenn ja wie ?

danke euch

[DeddyH]

Wie fängst Du die Message denn ab?

[khh]

Zitat von DeddyH:

Wie fängst Du die Message denn ab?

so:

ShowMessage(IntToStr(self.Handle));

aber ich denke mal das passt so nicht

gruss Kh

[DeddyH]

Delphi-Quellcode:

type 
  TDeinForm = class(TForm)
  ...
  private
    { Private-Deklarationen }
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  ...
  end;

...

implementation

...

procedure TDeinForm.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType = SC_MINIMIZE then
    ShowMessage('Minimieren')
  else
    inherited;
end;

[khh]

ich danke dir.

und wie reagiert das form jetzt darauf?
ich muss die private Proc doch irgendwo aufrufen?

über nen timer? oder wie?

Gruss Kh

[DeddyH]

Schreib das doch einfach mal in Deinen Code und minimiere das Formular.

[khh]

Zitat von DeddyH:

Schreib das doch einfach mal in Deinen Code und minimiere das Formular.

hab ich ja gemacht, aber da tut sich so nix,
keine msgbox


Gruss Kh

[DeddyH]

Hmm... unter Delphi funktioniert das so. Setz doch mal einen Breakpoint auf die Zeile

Zitat:

  if Msg.CmdType = SC_MINIMIZE then

Kommst Du da überhaupt an?