名前
題名
▼ andyさん > 以下のようなコードで各フォームにおいていますが > 共有したいと思っています。 > > procedure TMainF.MenuAddCon; > var i, e, j:integer; > NewItem:TMenuItem; > aa:string; > begin > with　show1 do begin > Clear; > for j:=1 to 10 do begin > NewItem := TMenuItem.Create(Self); > NewItem.Caption:='てすと'+inttostr(j); > NewItem.Name:='ka'+inttostr(j); > NewItem.Tag:=j; > NewItem.OnClick:=HyojiSelectClick; > Insert(j-1,NewItem); > end; > end; > end; > end; > > unitに上のコードをひとつ置き各フォームから > 呼び出すようにしていますが > show1 は　show:TMenuItemでできますが > OnClickはどのようにしたらいいでしょうか。 > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link