Registriert seit: 6. Mär 2005
73 Beiträge
|
Re: Form schliessen wenn die Maus das Form verlässt.
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.
|
|
Zitat
|