[Help] Fenster aus Sysbar...

[Gabberjool]

Also:
Ich hab nun das versucht : http://www.swissdelphicenter.ch/de/showcode.php?id=54

Das ganze sollte dan ja So aussehen:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    procedure WMSysCommand(var msg: TWMSysCommand); message WM_SysCommand;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

    {$R *.dfm}



procedure TMainForm.WMSysCommand(var msg: TWMSysCommand);
begin
  if msg.CmdType and $FFF0 = SC_MINIMIZE then
    hide
  else
    inherited;
end;


procedure TForm1.FormShow(Sender: TObject);
var
  hwndOwner: HWnd;
begin
  hwndOwner := GetWindow(Handle, GW_OWNER);
  ShowWindow(hwndOwner, SW_HIDE);
  // For Windows 2000, additionally call the ShowWindowAsync function:
  ShowWindowAsync(hwndOwner, SW_HIDE);
  ShowWindowAsync(Self.Handle, SW_HIDE);
end;

end.

Jedoch Gibt er nur fehler meldungen... sprich:

[Fehler] Unit1.pas(24): ';' erwartet, aber '.' gefunden
[Fehler] Unit1.pas(24): ';' erwartet, aber ')' gefunden
[Fehler] Unit1.pas(27): Undefinierter Bezeichner: 'hide'
[Fehler] Unit1.pas(29): Diese Form des Methodenaufrufs ist nur in Methoden von abgeleiteten Typen erlaubt

usw...

Bitte was mach ich falsch...