Объясняю на пальцах.
Ты пытаешься вызвать событие 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;
Теперь понятно?