...

Hey Kasper,
du kan bruge din TApplications FOnMinimize: TNotifyEvent;

Når denne bliver kaldt, skal du så "fjerne" dit program fra Statusbaren ved at sende en besked til windows.

Definér din egen event:

  TMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
     procedure FormMinimize(Sender: TObject);
  public
    { Public declarations }
  end;

Koden for din event:

procedure TMainForm.FormMinimize;
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

For at dit program så bruger denne event, skal du lige fortælle det ved at bruge følgende kode i din OnCreate event for din mainform:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:= FormMinimize;
end;

Nu fjernes dit program så fra "Taskbaren"...
For at vise dette igen skal du bruge følgende:

ShowWindow(Application.Handle, SW_SHOW);

Dette tilføjer du til den event der bliver kørt når du skal vise programmet igen..

og så lige plads til lidt bitching
Du behøver ikke tilføje det samme spørgsmål flere gange..
Det skal nok blive besvaret hvis der er nogle der kender svaret..

Endvidere kan disse info let findes på google

Okay

Hehe

Troede ingen svarede, fordi jeg ikke havde givet ret mange UP

Men hvor skal jeg så skrive FOnMinimize: TNotifyEvent; ?

Skal du ikk skrive nogen steder..
Det er bare den måde OnMinimize eventen er skrevet for TApplication klassen..

Hvis du tilføjer alting ligesom jeg har skrevet i "code" blokkene, så fjernes dit program fra Taskbaren når alle vinduer i programmet er minimeret.

Okay

Jeg får ingen fejl, men den vil altså ikke hide fra start-menuen

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls;


type
    TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    ben1: TMenuItem;
    Afslut1: TMenuItem;
    TrayIcon1: TTrayIcon;
    procedure ben1Click(Sender: TObject);
    procedure Afslut1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
     procedure FormMinimize(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormMinimize;
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TForm1.Afslut1Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.ben1Click(Sender: TObject);
begin
  Application.Restore;
  ShowWindow(Application.Handle, SW_SHOW);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:= FormMinimize;
end;


end.

Hvad mener du?
Er hele ideen med MinimizeToTray ikke at vinduet forsvinder fra taskbaren, og KUN er i dit SysTray?

se evt: http://kenman.dk/udvikleren/taskbar.png

Jeg méner taskbaren

Den er der godt nok, i tray, men den fjerner sig kke fra taskbaren

Hey Kasper,
har du husket at bruge

ShowWindow(Application.Handle, SW_HIDE);?
Det skal nemlig fjerne dit program fra taskbaren.

Se evt. http://www.festra.com/eng/snip10.htm

Tak