Как послать Edit'у сообщение о нажатии клавиши

[Vadik(R)]

Люди, как послать Edit'у сообщение о нажатии клавиши? Знаю, что тема уже замусолена, но тем не менее сколько не пытался использовать чужые коды, все равно никак. Вот код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: hWND;
begin
  Timer1.Enabled:=False;
  h:=FindWindow(nil, 'Form1');
  h:=FindWindowEx(h, 0, '', 'Edit1');
  PostMessage(h, WM_SETTEXT, VK_SPACE, 1)
end;

end.

Хочу послать пробел, но ничего не происходит. Edit1.Perform не предлагайте, так как мне надо послать сообщение чужому окну.

[JamS007]

С чего ты взял, что имя Edita'a в другом окне будет именно Edit1 ?

[Altera]

Сообщение от JamS007

С чего ты взял, что имя Edita'a в другом окне будет именно Edit1 ?

А с чего ты взял, что нет? Может другое окно тоже им создано...

[Terran]

Вы не указали класc компонента. Сделайте так:

...
Procedure TForm1.Timer1Timer(Sender: TObject);
Var
h: hWND;
Begin
Timer1.Enabled:=False;
h:=FindWindow(nil, 'Form1');
h:=FindWindowEx(h,0,'TEdit','Edit1');
PostMessage(h,WM_KEYDOWN, VK_SPACE,1);
End;

[mihali4]

И все равно вряд ли что получится, потому что:
procedure TForm1.Timer1Timer(Sender: TObject);
...
h:=FindWindow(nil, 'Form1');
Она всегда будет находить себя, а не чужую форму.