Skjul taskbutton

form1.hide;

Du skriver:
ShowWindow(Application.Handle, SW_HIDE);

Formen skal ikke skjules, kun jobknappen. Jeg har rodet med ShowWindow, men den har jeg ikke fået til at virke.

Sæt linien ind i den forms OnActivate event.
Prøv evt. at lave en knap, som udføre linie, når du trykker på den. Du vil da se, at genvejen til programmet forsvinder fra taskbaren.

nca >> OK, jeg prøver det, når jeg kommer hjem fra skole.

delphidaner>>
Hvis du vil fjerne en applikation effiktivt fra din taskbar, som faktisk hedden en Application bar,  skal du overstyre message handleren for WM_SYSCOMMAND. Der udover skal du have et OnRestore event på din Application .... Og et par andere små tricks, så det hele sket \"automatisk\".

Alt i alt så kommer koden til at se således ud :


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  AppEvnts;

type
  TForm1 = class(TForm)
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
    procedure ApplicationOnRestore(Sender: TObject);

  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

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

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  case Message.CmdType of
    SC_MINIMIZE:
    begin
      ShowWindow(Handle, SW_HIDE);
      Application.Minimize;
      ShowWindow(Application.Handle, SW_SHOW);
    end;
    SC_RESTORE:
    begin
      Application.Restore;
      ShowWindow(Handle, SW_RESTORE);
      ShowWindow(Application.Handle, SW_HIDE);
    end;
    else
      inherited;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
  Application.Title := Caption;
  Application.OnRestore := ApplicationOnRestore;
end;

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

end.

Jens B

borrisholt >> OK, det prøver jeg også, når jeg kommer hjem idag. Jeg havde ikke lige tænkt på at bruge WM_SYSCOMMAND, men det ser fornuftigt ud.

nca >> Dit forslag virker ikke ordenligt; Application bar\'en vises igen, efter at formen har været minimeret.

borrisholt >> Dit forslag kan jeg godt bruge. Application bar\'en dukker op, når man minimere, og forsvinder igen, når man gendanner. Det er smart til en always-on-top applikation.