フォーム上のボタンを押したとみなす処理は

解決

bubu 2009-06-11 02:08:40 No: 34694 IP: 192.*.*.*

フォーム上にＡとＢの二つのボタンがあります。

これを交互に、押す作業を自動化したいのですが、

どのようなやり方がありましたでしょうか。

DEKO 2009-06-11 08:34:00 No: 34695 IP: 192.*.*.*

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 処理1
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // 処理2
end;

なら、

for i:=0 to 9 do
begin
  Button1Click(nil);
  Button2Click(nil);
end;

ですかね(Sender をイベント内で使っていなければ)。

"マウスで押した事にする" のであれば、

for i:=0 to 9 do
begin
  // Button1 をマウスで押した事にする
  SendMessage(Button1.Handle, WM_LBUTTONDOWN, 0, 0);
  SendMessage(Button1.Handle, WM_LBUTTONUP, 0, 0);
  // Button2 をマウスで押した事にする
  SendMessage(Button2.Handle, WM_LBUTTONDOWN, 0, 0);
  SendMessage(Button2.Handle, WM_LBUTTONUP, 0, 0);
end;

このようになると思います。

編集削除

bubu 2009-06-13 11:27:41 No: 34696 IP: 192.*.*.*

DEKOさん
確認遅くなり申し訳ございません。
出来ました。ありがとうございました。

編集削除