Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - form ausblenden wenn es minimiert wird
Harry M. - So 06.02.05 00:02
Titel: form ausblenden wenn es minimiert wird
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
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 - So 06.02.05 11:54
Also du überschreibst das Event Application.OnMinimize und Application.OnRestore
Delphi-Quelltext
1:
2:
| Application.OnMinimize := MinimizeToTNA;
Application.OnRestore := HideTaskButton; |
dann erstellst du die proceduren:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.MinimizeToTNA(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end; |
und
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
Harry M. - So 06.02.05 15:42
es geht jetzt danke
gruß
Harry M. - Mi 09.02.05 13:34
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?????
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!