Выдвижение формы при наведении

[Stanislav]

Здравствуйте форумчане..

Вопрос конечно, малость туповат и прост но все же.

Необходимо следующее: при наведении мышки на верхнию часть экрана
(вообщем top = 0 ) должна выдивнутся форма.

Как выдвинуть, задвинуть я знаю. но мне не хотелось бы постояно отслеживать кординаты мыши (это единственный вариант который знаю)
Я видел другой вариант реализованный на этом форуме, только вот к сожалению найти его не могу. (И там форма выдвигалась слева)
Кто знает буду очень благодарен за ссылку.

Так же был бы благодарен если бы ответили как отслеживать мышь вне формы. Либо вообще как реализовать задуманное.

Большое спасибо.

Большое спасибо.

[eoln]

Либо хук ставить либо таймером отслеживать

var
  P: TPoint; 
  ...
  windows.GetCursorPos(P);
  if P.y = 0 then ...

[Stanislav]

Не хочется повторятся но все же: не кто не встречал на этом форуме похожую тему там даже вложение было, только форма там слева выдвигалась?

[Terran]

Вы можете использовать AnimateWindow. Здесь вся информация: AnimateWindow.rar

[Stanislav]

Сообщение от Terran

Вы можете использовать AnimateWindow. Здесь вся информация: Вложение 5386

Да знаю я про этот вин анимэйт дело то не в том как выдвигать а в том как узнать что

мышь top=0 не хочется мне постояно следить за кординатами, хотя бы только потому-что,на этом форуме я видел пост с вложением где это проделовылось и кода там на один абзац форма выдвигалась правда слева а не сверху. Там еще компоненты красивые были использованы и все спрашавали откуда автор их взял.... не могу этот топ найти хоть убей....

Может кто видел или помнит? если знаете кинте ссылку пожалуйсто...

Заранее благодарен..

[Stilet]

Попробуй вот такой вариант:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure wml(var v:tagMSG); message CM_MOUSEENTER;
    procedure wme(var v:tagMSG); message CM_MOUSELEAVE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Left:=0; Width:=Screen.DesktopWidth;
Height:=100; top:=-Height+2;
end;

procedure TForm1.wme(var v: tagMSG);
begin
   top:=-Height+2;
end;

procedure TForm1.wml(var v: tagMSG);
begin
Top:=0;
end;

end.

[Stanislav]

Stilet, большое вам спасибо, работает как я и хотел только один вопрос почему фокус теряется т.е форма становится не активной после выдвижения?
Я так пробывал:

procedure TForm1.wml(var v: tagMSG);   
begin
Top:=0;
form1.setfocus;
end;

Но что-то нет изменений....


А так ребят всем спасибо кто отписался....

[Sibedir]

Сообщение от Stanislav

Не хочется повторятся но все же: не кто не встречал на этом форуме похожую тему там даже вложение было, только форма там слева выдвигалась?

http://www.programmersforum.ru/showthread.php?t=9161

[Stanislav]

Сообщение от Sibedir

http://www.programmersforum.ru/showthread.php?t=9161

Большое тебе спасибо... И еще раз респект....

[Stanislav]

Stilet, а что с фокусом то делать? Или это уже нельзя исправить?