Что не правильно?

[misher]

procedure TForml.TimerlTimer(Sender: TObject);
var
i:Integer;
h:THandle;
begin
Visible:=true; //Сделать окно видимым
//Установить верхнюю позицию окна в левый нижний угол экрана
Тор:=Screen.Height-Height;
Left:=l;


Тор:=Screen.Height-Height; (чем это страка не правильна указатель на слово Top показывает)???

[Пепел Феникса]

TForml

случайно не TForm1?

[misher]

да там так і напісано просто плохо скопіровала я это пров6рял!нето...

[misher]

ой, прости за язык)))

[misher]

так может лучше...


unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Width:=85;//Установить ширину окна
Height:=29;//Установить высоту
Left:=-100;//Убрать окно за левую границу экрана
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:Integer;
h:THandle;

begin

Visible:=true; //Сделать окно видимым

//Установить верхнюю позицию окна в левый нижний угол экрана
Тор:=Screen.Height-Height;
Left:=l;

h:=CreateEvent(nil, true,false, ' e t ' );
for i:=l to 80 do
begin
Top:=Screen.Height-Height-i*5;
Repaint;
WaitForSingleObject(h,15);
for i::=80 downto 1 do
begin
Top: =Screen. Height-Height-.!*5;
Repaint;
WaitForSingleObject(h,15);
end;
Closehandle(h); //Уничтожается указатель h
Visible:=false; //Прячется окно,
end;

end.

[misher]

так может лучше...


unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Width:=85;//Установить ширину окна
Height:=29;//Установить высоту
Left:=-100;//Убрать окно за левую границу экрана
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:Integer;
h:THandle;

begin

Visible:=true; //Сделать окно видимым

//Установить верхнюю позицию окна в левый нижний угол экрана
Тор:=Screen.Height-Height;
Left:=l;

h:=CreateEvent(nil, true,false, ' e t ' );
for i:=l to 80 do
begin
Top:=Screen.Height-Height-i*5;
Repaint;
WaitForSingleObject(h,15);
for i::=80 downto 1 do
begin
Top: =Screen. Height-Height-.!*5;
Repaint;
WaitForSingleObject(h,15);
end;
Closehandle(h); //Уничтожается указатель h
Visible:=false; //Прячется окно,
end;

end.

[Don Karleone]

В слове Top какая-то буква (или несколько) набраны на русском языке, исправь.

[misher]

пасибо!!!!!!!!!!!
for i::=80 downto 1 do ( вот теперь в этой 1 двоеточіе я убрал)

[misher]

всем спасибо! я сам разобрался)