возобновить появление формы

[strannik]

Товарищи программисты подскажите как реализовать такую задачу - имеется форма - при старте приложения форма появляется - ее нельзя двигать и она имеет определенную позицию на экране - далее если курсор мышки вышел за пределы формы - форма скрывается - теперь сам вопрос - как сделать так чтобы при попадании курсора мышки на ту площадь занимаемую еще видимой формой форма появлялась? Приветствуются любые ответы.
Заранее спасибо.

[mutabor]

при старте приложения форма появляется - ее нельзя двигать и она имеет определенную позицию на экране

убери заголовок (BorderStyle:=bsNone) и задай координаты в OnCreate

далее если курсор мышки вышел за пределы формы - форма скрывается

нужно получать сообщение от винды о перемещении мыши и если курсор не на форме, скрыть ее - Form.Hide

как сделать так чтобы при попадании курсора мышки на ту площадь занимаемую еще видимой формой форма появлялась?

точно так же, продолжать проверять координаты мыши, если курсор попал в определенную область, показать окно - Form.Show

[strannik]

var
  Form1: TForm1;
  foo:TPoint;
  n:integer =0;
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
 n:=0;
 AnimateWindow(Handle, 300, AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (n=0) then
  begin
  if GetCapture = 0 then
    SetCapture(Form1.Handle);
  if not PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width,
    Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) then
    begin
     AnimateWindow(Handle, 300, AW_HOR_NEGATIVE or AW_SLIDE or AW_HIDE);
     n:=1;
    end;
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (n=1) then
  begin
   getcursorpos(foo);
    if (foo.x<=form1.Width) and (foo.y<=form1.Height) then
     begin
     form1.Show;
     application.ProcessMessages;
     showmessage('Hello!');
     end;
  end;
end;

Делаю таким образом - но форма не хочет появлятся повторно. Поскажите где может быть ошибка. Интересно то, что showmessage('Hello!') - показывается. Может можно каким нибудь другим способом реализовать повторное появление формы?

[Stilet]

Strannik, А може тебе подойдет вот такой способ?:

т.е. пока ты водиш мышкой в пределах формы форма на месте, как только мыша вышла за пределы, форма исчезла, как только мыша появилась на том месте где была форма, форма появилась:

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
AlphaBlend:=true;
AlphaBlendValue:=250;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var tp:TPoint;
begin
tp:=ScreenToClient(Mouse.CursorPos) ;
if (tp.X<0)or(tp.X>Width)or(tp.Y<-15)or(tp.Y>Height) then begin
AlphaBlendValue:=0;
end else
AlphaBlendValue:=250

end;

end.


Я угадал?

[strannik]

Stilet ты угадал. Спасибо огромное! С помощью твоего кода переделал свой - вот что получилось:
...

procedure TForm1.Timer1Timer(Sender: TObject);
var tp:TPoint;
begin
 tp:=ScreenToClient(Mouse.CursorPos);
  if (tp.X<-5)or(tp.X>width)or(tp.Y<-25)or(tp.Y>Height) then
   AnimateWindow(Handle, 300, AW_HOR_NEGATIVE or AW_SLIDE or AW_HIDE)
  else
   AnimateWindow(Handle, 300, AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
 AnimateWindow(Handle, 300, AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);
end;
...

Всё прекрасно - только используя копонент AlphaSkins при повторном и последующих появлениях формы - клиенская область её отображается черной.