hallo
hab das falsch beschrieben: hab einen button mit dem ereigniss onmousemove > code: form2.show,
also wenn ich auf den button zeige kommt die form2 und dann flackert die form2 durch den timer.
Delphi-Quellcode:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
form2.Show; //// form2 anzeigen
end;
procedure TForm2.Timer1Timer(Sender: TObject); //// form2 schließen
var
mouseCoords: TPoint;
begin
GetCursorPos(mouseCoords);
if (mouseCoords.x < Form2.Left) or
(mouseCoords.y < Form2.Top) or
(mouseCoords.x > Form2.Left+Form2.Width) or
(mouseCoords.y > Form2.Top+Form2.Height) then
Form2.Close;
end;
mfg vader
[edit=sakura] [delphi]Tags Mfg, sakura[/edit]