掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォーム上のボタンを押したとみなす処理は (ID：34695)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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; このようになると思います。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.