![]() |
Taskleiste
hi,
ich hab folgenden code gefunden ![]() es heißt an soll es in die OnShow methode schreiben. es funzt aber an sieht ier noch, dass das Programm kurz in der Taskleiste zu sehen ist. Kann man das besser machen? |
Re: Taskleiste
hi,
probiers mal, indem du den code ins OnCreate-Ereignis schreibst. vielleicht funktionierts so... gruss urbanbruhin |
Re: Taskleiste
ne,
bei onCreate geht das irgend wie nich. |
Re: Taskleiste
Hi,
geht auch ein anderer Code ?
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var Owner : HWnd; begin Owner:=GetWindow(Handle,GW_OWNER); ShowWindow(Owner,SW_HIDE); end; |
Re: Taskleiste
Bei mir flackert da nichts kurz in der Taskleiste:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
begin ShowWindow(GetWindow(Handle,GW_OWNER),SW_HIDE); end; |
Re: Taskleiste
Zitat:
|
Re: Taskleiste
ja bei ir auch.
gibt es keine globale Lösung? Ich mein die Programme die sich nicht in die Taskleiste minimiren lassen, bei denen sieht man gar nichts in der Taskleiste. |
Re: Taskleiste
Meinst du event. das Application.ShowMainForm? Beim Ausprobieren diese Property bitte vor dem Application.Run in der Haupt-Projektdatei auf False setzen:
Delphi-Quellcode:
begin
Application.Initialize; Application.CreateForm(TForm1, Form1); Application.ShowMainForm := false; // <---==== Application.Run; end. |
Re: Taskleiste
Delphi-Quellcode:
Das funktioniert bei mir. Kein kurzes Aufblitzen: Bei onShow ist es wohl schon zu spät (was aber von der CPU abhängt, wegen den Ein-/Ausblendeffekten).
procedure TForm1.FormCreate(Sender: TObject);
begin ShowWindow(Application.Handle, SW_HIDE); SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); ShowWindow(Application.Handle, SW_SHOW); end; |
Re: Taskleiste
Normalerweise kann man auch Methoden überschreiben welche das Fenster erst erstellen. Dort muß dann einfach WS_EX_APPWINDOW ausmaskiert werden. Nicht anders macht man das ja bei diversen Controls, wenn die abgeleitet werden.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz