Was gibt es daran nicht zu verstehen...
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 =
class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
procedure WMSysCommand(
var Message: TWMSysCommand);
message WM_SysCommand;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.WMSysCommand(
var Message: TWMSysCommand);
begin
if Message.CmdType
and $FFF0 = SC_MINIMIZE
then
Hide
else
inherited;
end;
procedure TForm1.FormShow(Sender: TObject);
var Owner : HWnd;
begin
Owner:=GetWindow(
Handle, GW_OWNER);
ShowWindow(Owner, SW_HIDE);
end;
end.
...funktioniert wunderbar.
Edit:
Zitat von
asusbob:
Der Eintrag in der Taskbar soll nich verschwinden wenn das Fenster minimiert ist ... Der soll immer weg sein.
Was soll das? Soll beim Minimieren der Taskbar-Eintrag sichtbar sein? Was soll dann die Aussage, der soll immer weg sein? Präzisiere mal deine Anforderungen und Wünsche, dann kann man dir vielleicht auch helfen.