|
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;
>
>
> 動く形のコードを提示なさった上で、質問を詳しく、明確にされた方が
> 良いと思います！
|