Menu에서 Component - Import ActiveX 부분에서 Shckwave Flash를
Import하여 아래와 같이 사용하고자 하는데 마우스로 클릭시 몇번째 메뉴를
클릭했는지 알 수 없나요?
......
procedure ShockWaveFlash1OnEnter(Sender: TObject);
......
procedure TMain_F.ShockWaveFlash1OnEnter(Sender: TObject);
begin
showmessage('변수값 체크?');
if 변수값 = 0 then
begin
Program1_F := TProgram1_F.Create(self);
Program1_F.Show;
end
else if 변수값 = 1 then
begin
Program2_F := TProgram2_F.Create(self);
Program2_F.Show;
end
else if 변수값 = 2 then
begin
Program3_F := TProgram3_F.Create(self);
Program3_F.Show;
end;
end;