Call 他のイベントの呼び出し
VBで他のイベントを呼び出すときは Call を使っていました(使わなくてもいいんだけど)。
Delphiでのイベントは普通の手続きなので(VBもそうなんですが)、呼び出しに特別な命令はいりません。引数に Selfや
Senderなどのオブジェクトを指定するのがちょっと特殊です。
また、複数のコンポーネントをひとつのイベントに関連付けるには オブジェクトインスペクタのイベントページで指定可能です。
| ■ 他のイベントの呼び出し例 |
procedure TForm1.Button1Click(Sender: TObject);
begin
//ボタン2のクリック処理を使用する
Button2.OnClick(Sender);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
with Sender as TButton do begin
//押されたボタンの名前を表示する
ShowMessage(Name);
end;
end;
|