Jetzt funkts endlich. !!!!!
Ich muss nur einfach den Rahmen um zwei Pixel umlaufend kleiner machen.
Und die Welt ist wieder in Ordnung. So einfach ist das, und hat drei Tage
Arbeit gemacht.
Herzlichen Dank an Alle und bitte sogleich um Verzeihung.
Gruß Kostas
Delphi-Quellcode:
private
{ Private declarations }
Procedure WMMouseLeave(
Var Msg: TMessage);
Message CM_MOUSELEAVE;
end;
var
frSecondForm: TSecondForm;
implementation
{$R *.dfm}
procedure TSecondForm.WMMouseLeave(
var Msg: TMessage);
var fb:TRect;
mp:TPoint;
begin
mp := Mouse.CursorPos;
fb := SecondForm.BoundsRect;
fb.left :=
fb.left + 2;
fb.Right :=
fb.Right - 2;
fb.Top :=
fb.Top + 2;
fb.Bottom :=
fb.Bottom - 2;
if not PtInRect(
fb, mp)
then SecondForm.close;
end;