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

[Stanislav]

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

Вот что я тут пытался:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer2Timer(Sender: TObject);
    procedure x(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
 
uses
  Unit1;

type
  TForm2State = (fsMoveTo, fsMoveBack);

var
  Del: Integer;

{$R *.dfm}

procedure TForm2.x(Sender: TObject);
begin
Left:=0; Width:=Screen.DesktopWidth;
Height:=100; top:=-Height+5;

  Del := 0;
  Timer1.Enabled := True;
  Timer2.Enabled := True;
  Show;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
  pos: TPoint;
begin
  GetCursorPos (pos);
  if (pos.y < 20) and (top < 0) then begin
    Del := 20;
    Show;
  end;

  if (Del <> 0) then top := top + Del;

  if (Del = -20) and (top < 0 - Height) then begin
    Del := 0;
    top := 0 - Width;
    Hide;
  end;
  if (Del = 20) and (top >= 0) then begin
    Del := 0;
    top := 0;
  end;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
var
  pos: TPoint;
begin
  GetCursorPos (pos);
  if pos.y > Form2.Width then Del := -20;
end;

end.

[Stanislav]

Сори ребят не актуально.... разобрался
если кому надо ловите:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
 
uses
  Unit1;

type
  TForm2State = (fsMoveTo, fsMoveBack);

var
  Del: Integer;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin

  ClientHeight := Image1.Height;
  Width := Screen.Width;
  Left := 0 ;
  Top := 0;

  Del := 0;
  Timer1.Enabled := True;
  Timer2.Enabled := True;
  Show;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
  pos: TPoint;
begin
  GetCursorPos (pos);
  if (pos.y < 20) and (top < 0) then begin
    Del := 20;
    Show;
  end;

  if (Del <> 0) then top := top + Del;

  if (Del = -20) and (top < 0 - Width) then begin
    Del := 0;
    Left := 0 - Width;
    Hide;
  end;
  if (Del = 20) and (top >= 0) then begin
    Del := 0;
    top := 0;
  end;
end;

procedure TForm2.Timer2Timer(Sender: TObject);
var
  pos: TPoint;
begin
  GetCursorPos (pos);
  if pos.y > Form2.Height then Del := -20;
end;

end.