WINDOWS Startleiste

[Störtebeker]

Bietet mir die Form nicht an. Das Label hat ne OnMouseLeave Funktion. Aber die Form eben nicht.

P.S.: D6 Enterprise

Müsste ich das also selber implementieren, oder?

Delphi-Quellcode:

interface

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

type
  TForm2 = class(TForm)
    VrGradient1: TVrGradient;
    VrGradient2: TVrGradient;
    VrGradient3: TVrGradient;
    VrGradient4: TVrGradient;
    Label1: TLabel;
    procedure FormDeactivate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Form1MousLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
.
.
.

procedure TForm2MouseLeave(Sender: TObject);
begin
Form2.close;
end;
.
.
.
end.

so??