Einzelnen Beitrag anzeigen

engine

Registriert seit: 6. Mär 2005
73 Beiträge
 
#14

Re: Form schliessen wenn die Maus das Form verlässt.

  Alt 6. Jun 2005, 21:03
Hallo Kostas,


du musst noch einen Timer in dein Programm einbauen, dann sollte es mit meinem Code funktionieren.
Delphi-Quellcode:
unit Main;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure AutoOff;
var
  p : TPoint;
  wc : TWinControl;

begin
  GetCursorPos(p);

  begin
    wc:=FindVCLWindow(p);

    if wc <> nil then // Maus befindet sich im Programmfenster
      begin

      end
    else // Maus befindet sich außerhalb des Programmfenster
      begin
        Form1.Close; //Fenster schließen
      end;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AutoOff;
end;

end.
  Mit Zitat antworten Zitat