parent minimieren

[khh]

hallo zusammen,
ich habe eine von tbutton abgeleitete klasse die zur Laufzeit auf einem form erstellt wird.
das Click-event habe ich überschrieben um damit eine aktion auszulösen.

Gibts ne möglichkeit das parentform aus der mybutton-Klasse zu minimieren?

so in der art: parent.minimize ;-)


ich danke euch

gruss Kh

[mkinzler]

Versuch mal

Delphi-Quellcode:

Parent.Hide;

[khh]

Zitat:

Zitat von mkinzler

Versuch mal

Delphi-Quellcode:

Parent.Hide;

ja , parent.hide funktioniert.
aber so ist das Form ja "versteckt".
ich brauche das Form aber minimiert, damit es auf der taskleiste liegt.


Gruss KH

[Dust Signs]

.Minimize vielleicht?

Dust Signs

[mkinzler]

Kennt Lazarus WindowState?

[Sunlight7]

Eine WM_SYSCOMMAND Nachricht mit SC_MINIMIZE an das Parenthandle schicken?

[mkinzler]

Zitat:

Zitat von Sunlight7

Eine WM_SYSCOMMAND Nachricht mit SC_MINIMIZE an das Parenthandle schicken?

Das würde dann aber nur auf Windows funktionieren.

[DeddyH]

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

[khh]

Zitat:

Zitat von mkinzler

Zitat:

Zitat von Sunlight7

Eine WM_SYSCOMMAND Nachricht mit SC_MINIMIZE an das Parenthandle schicken?

Das würde dann aber nur auf Windows funktionieren.

minimize funktioniert nicht, hatte ich schon probiert

ich denke das mit dem systemkommando sollte gehen, ich weiss da nur nicht die genaue syntax, wie ist die?
( es reicht aus,wenn unter windows funktioniert)

Gruss KH

[DeddyH]

Delphi-Quellcode:

SendMessage(<ParentHandle>, WM_SYSCOMMAND, SC_MINIMIZE, 0);

[khh]

Zitat:

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:

Zitat von khh

Zitat:

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:

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:

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:

Delphi-Quellcode:

  if Msg.CmdType = SC_MINIMIZE then

Kommst Du da überhaupt an?

[khh]

Zitat:

Zitat von DeddyH

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

Zitat:

Delphi-Quellcode:

  if Msg.CmdType = SC_MINIMIZE then

Kommst Du da überhaupt an?

nee da komme ich nicht an

:-(

gruss Kh

[DeddyH]

Zeig doch mal den interface-Teil Deiner Unit.

[khh]

Zitat:

Zitat von DeddyH

Zeig doch mal den interface-Teil Deiner Unit.

hier:
type

{ Tmenueauswahlform }

Tmenueauswahlform = class(TForm)
beendenButton: TButton;
Label1: TLabel;
dbnameLabel: TLabel;
Label2: TLabel;
Panel1: TPanel;

procedure beendenButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
{ Private-Deklarationen }
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;


public
{ public declarations }
end;

var
menueauswahlform: Tmenueauswahlform;
newbox: TmyButton;

implementation

[DeddyH]

Das sieht OK aus. Muss ich mir wohl doch Lazarus unter Windows installieren, sonst finde ich das eh nicht.

[khh]

Zitat:

Zitat von DeddyH

Das sieht OK aus. Muss ich mir wohl doch Lazarus unter Windows installieren, sonst finde ich das eh nicht.

das wäre ja super ;-)

ich denke es macht ja auch sinn, das form entscheiden zu lassen.


Gruss Kh

[DeddyH]

Den Effekt kann ich bestätigen, die Methode wird nicht durchlaufen. Es gibt zwar das Ereignis OnWindowStateChange, aber das wird erst nach der Änderung ausgelöst. Somit muss ich leider passen, Lazarus-Experten an die Front.

[khh]

Zitat:

Zitat von DeddyH

Den Effekt kann ich bestätigen, die Methode wird nicht durchlaufen. Es gibt zwar das Ereignis OnWindowStateChange, aber das wird erst nach der Änderung ausgelöst. Somit muss ich leider passen, Lazarus-Experten an die Front.

na jetzt bin ich aber gespannt auf die Lösung des Problems.

Gruss Kh

[Sunlight7]

Funktionierts auch nicht, wenn Du die WndProc überschreibst?

[khh]

Zitat:

Zitat von Sunlight7

Funktionierts auch nicht, wenn Du die WndProc überschreibst?

hallo deltlef,
kannst du das mal bitte probieren, du kennst dich da besser aus und bist sicher schneller als ich.

Gruss Kh

[DeddyH]

Wenn man die Minimieren-Schaltfläche in der Titelleiste klickt, wird kein WM_SYSCOMMAND gesendet.

[DeddyH]

Stattdessen kommt WM_SHOWWINDOW. Wie man da noch Veto einlegen will, weiß ich allerdings nicht.