Таймер с "кликером"!

[knight]

Ставиш таймер на форму, кликаешь по нему 2 раза, он создает событие OnTimer, а уже в нем пишешь вызов функции нажатия клавиши...

[knight]

кнопки доп. клавы
VK_DECIMAL - точка
VK_MULTIPLY - умножить
VK_NUMPAD0..VK_NUMPAD9 - цифры
VK_DIVIDE - делить
и тд

[Terran]

Сообщение от Дикий

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval(Edit1.Text);
end;

в принципе знал я что это будет ошибкой...

как правильно будет??

Вам надо присваивать значение так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Timer1.Interval:=StrToInt(Edit1.Text);
End;

[Дикий]

Build
[Error] Unit1.pas(35): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(37): Undeclared identifier: 'TBuffer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Функция нахождения кода окна по части имени
function soaFindWindow(ATitle: string): THandle;
var hwnd : integer;
    Buffer : ^TBuffer;
    count  : integer;

Соррриии.. .ну простите нуба

[Terran]

Сообщение от Дикий

Build
[Error] Unit1.pas(35): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(37): Undeclared identifier: 'TBuffer'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Функция нахождения кода окна по части имени
function soaFindWindow(ATitle: string): THandle;
var hwnd : integer;
    Buffer : ^TBuffer;
    count  : integer;

Соррриии.. .ну простите нуба

Функции в таймер не ставят) Их обычно вызывают. К примеру:

//Функция нахождения кода окна по части имени
function soaFindWindow(ATitle: string): THandle;
var hwnd : integer;
    Buffer : ^TBuffer;
    count  : integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
soaFindWindow('AAA');
End;

[Дикий]

Плин.. .я тормоз.. не ругайтесь пож... просто хочу разобраться - кому не в падлу!!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  soaFindWindow: THandle;
  soaPressEnter: integer;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
  begin
    Timer1.Interval:=StrToInt(Edit1.Text);
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    soaFindWindow(ATitle: string); //[Error] Unit1.pas(40): Missing operator or semicolon
  end;

//Функция нахождения кода окна по части имени
function soaFindWindow(ATitle: string): THandle; //[Error] Unit1.pas(44): Identifier redeclared: 'soaFindWindow'
var hwnd : integer;
    Buffer : ^TBuffer; //[Error] Unit1.pas(46): Undeclared identifier: 'TBuffer'
    count  : integer;
begin

 New(Buffer);
 hwnd := GetTopWindow(0);
 count := 0;
 while hwnd <> 0 do
  begin
       hwnd := GetNextWindow(hwnd, GW_HWNDNEXT);
       GetWindowText(hwnd, Buffer^, 254);
       if (Buffer^ = ATitle)
         then begin
           Result := hwnd;
           Exit;
         end;
    if count >= 100 then Break;
  end;
  Dispose(Buffer);
  Result := 0;
end;
//Жмет [[ на окно с именем  ATitle
function soaPressEnter(ATitle: string): integer; //[Error] Unit1.pas(68): Identifier redeclared: 'soaPressEnter'
var hwnd: THandle;
begin
  hwnd := soaFindWindow(ATitle); //[Error] Unit1.pas(71): Missing operator or semicolon
  if hwnd > 0 then
    begin
       PostMessage(hwnd, WM_KEYDOWN, VK_NUMPAD8, 0);
       PostMessage(hwnd, WM_KEYUP, VK_NUMPAD8, 0);
       Result := 1;
    end
  else Result := 0;
end;


end.

просто хочется видеть всё, где я ступил.... так что прошу помощи... а то я пол дня долблюсь... и до этого три дня сам пытался...(правда не так напористо :-[)

И еще надо бы сделать что бы после того, как сработал таймер, всё повторялось снова на автомате...