[xaknik]

Код:

var
  Form1: TForm1;
  pt:TPOINT;
  h:DWORD;


procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   GetCursorPos(pt);
   h:=WindowFromPoint(pt);
   SendMessage(h,WM_LBUTTONDBLClK,0,0);
 end;

На седьмой строке не пашет таймер.
Вот Ошибка [Error] Unit1.pas(23): Undeclared identifier: 'Timer1Timer'

[Страдалецъ]

Ну дык а компонент такой Timer1 вообще на форме есть? Ну дык а событие у него OnTimer как-бы описано?

[xaknik]

Что значит Дык Я просто супер начинающие delphi Програмист. иза это-го многово не понимаю можеш обьяснить на пальцах.

[Страдалецъ]

Объясняю на пальцах.
Ты пытаешься вызвать событие Timer1Timer которое обрабатывается компонентом TTimer. Таковой находтся на вкладке System.
Без наличия этого компонента на форме и объявленного вызова события Timer1Timer твоя запись:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   GetCursorPos(pt);
   h:=WindowFromPoint(pt);
   SendMessage(h,WM_LBUTTONDBLClK,0,0);
 end;

будет порождать ошибку [Error] Unit1.pas(23): Undeclared identifier: 'Timer1Timer', что у тебя и происходит.
Итак твои действия:
1.Добавить на форму компонент TTimer если еще недобавлен.
2.Дважды кликнуть на добавленом компоненте TTimer и должен открыться редактор кода с автоматически созданным пустым событием:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 end;

Помимо этого добавится в описании формы декларация этого события.

Код:

...
procedure Timer1Timer(Sender: TObject);
...

Теперь ты можешь просто стереть описание этого пустого события т.к. оно у тебя уже есть заполненное, т.е. стереть эти сторочки:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 end;

Теперь понятно?

[xaknik]

Да, Спасибо большое. Извини за отнятое время.