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...