form ausblenden wenn es minimiert wird

Harry M. · Beiträge: 754 Win 2000, XP D2005

wenn ich eine anwendung mit tna habe und die form minimiere soll sie sich aus blenden. wie kann ich das anstellen?? das funtz leider nicht

markieren

Delphi-Quelltext

1:	if WindowState = wsMinimized then Hide;

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.
Moderiert von Tino: Topic aus Sonstiges verschoben am So 06.02.2005 um 17:10

matze.de · Verfasst: So 06.02.05 11:54

Also du überschreibst das Event Application.OnMinimize und Application.OnRestore

markieren

Delphi-Quelltext

1:
2:

Application.OnMinimize := MinimizeToTNA;
Application.OnRestore := HideTaskButton;

dann erstellst du die proceduren:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.MinimizeToTNA(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

und

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.HideTaskButton(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

und das wars auch schon

mfg matze

_________________
si tacuisses, philosophus mansisses.

Harry M. · Beiträge: 754 Win 2000, XP D2005

es geht jetzt danke
gruß

Harry M. · Beiträge: 754 Win 2000, XP D2005

wollte das ganze eben verwenden, und mußte feststellen, das es nur für das hauptformular gilt, aber wie sollich es denn machen wenn sich nen andere form verstecken soll?????

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme