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

解決

bubu 2009-06-11 11:08:40 No: 34694

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

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

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

DEKO 2009-06-11 17:34:00 No: 34695

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 20:27:41 No: 34696

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