名前
題名
▼ andyさん > Harryさん、どうもありがとうございます。 > > 説明不足でどうもすみませんでした。 > イベントの処理のことでした。 > 早速、やってみましたがうまくきました、どうもありがとうございました。 > 以前のプログラムを作り直していて、できるだけコードを少なくして > 管理がしやすくしたいなと思ってやっていて引っかかっていました。 > > > 実際のコードですが > > フォーム側 > HyojiMenuAddCon(show0,HyojiSelectClick); //拡大・カラーのメニュー作成 > > ユニット側 > procedure HyojiMenuAddCon(Show0: TMenuItem; ClickEvent: TNotifyEvent); > var i, e, j, c:integer; > NewItem:TMenuItem; > aa:string; > begin > for i:=1 to 2 do begin > for c:=1 to Show0.Count do begin > if Show0.Items[c-1].Name='show'+inttostr(i) then begin > with Show0.Items[c-1] do begin > Clear; e:=IfThen(i=1,8,6); > for j:=1 to e do begin > NewItem := TMenuItem.Create(Application); > if i=1 then NewItem.Caption:='('+IfThen(j=1,'0)標準',inttostr(j-1)+')拡大'+inttostr(j-1)) > else NewItem.Caption:=Cutdata('白黒,白黒反転,黒黄,黒黄反転,黒緑,黒緑反転,青黄,青黄反転',j); > NewItem.Name:=IfThen(i=1,'ka', 'co')+inttostr(j); > NewItem.Tag:=j; > NewItem.OnClick:=ClickEvent; > Insert(j-1,NewItem); > end; > end; > end; > end; > end; > end; > > > ＞OnClickはどのようにしたらいいでしょうか。 > > うーむ、こう解釈しましたが、いかがでしょう？ > > procedure TForm1.MenuAddCon(show1: TMenuItem; ClickEvent: TNotifyEvent); > > （途中省略） > > NewItem.OnClick:=ClickEvent; > > > > > > 動く形のコードを提示なさった上で、質問を詳しく、明確にされた方が > > 良いと思います！
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link