Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#12

Re: Form aus Symbolleiste verbannen

  Alt 2. Jun 2007, 09:18
Eigentlich möchtest du ja nur dein Fenster beim Minimieren aus der Taskleiste entfernen. Der Code für dein Projekt:
Delphi-Quellcode:
private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses ShellApi;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  // Fenster wurde minimiert
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
  begin
    Hide;//Fenster verstecken
  end
  else
    inherited;
end;
Ansonsten die Demo aus der Code-Lib:
Angehängte Dateien
Dateityp: zip tna_618.zip (7,8 KB, 8x aufgerufen)
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat