Q&A

  • 이해가 안되는 내용인데, Please help me!!!
아래와 같은 코드가 있는데 어떤 내용인지 이해가 안됩니다...

좀 알려주세요...



procedure Tform1.MenuClick(Sender: TObject);

var

vForm : TForm;

vMenuItem : TMenuItem;

begin

vMenuItem := nil;

vMenuItem := Sender as TMenuItem;

/*********아래부분이 이해가 안됨***********************/



vForm := TFormClass(vMenuItem.Tag).Create(Application);



/******************************************************/



vMenuItem.Enabled := False;

end;

0  COMMENTS