아래소스를 참고 하세요..
제가 주말에는 동생 중국집에서 배달을 도와주기 때문에 -.-
너무 늦었지요??
Voice of Delphi, 류..
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
MenuItem : TMenuItem;
begin
MenuItem:= TMenuItem.Create(a1);
MenuItem.Caption:= 'Hi';
ListBox1.Items.Add('Hi');
MenuItem.Tag:= ListBox1.Items.Count;
a1.Add(MenuItem);
MenuItem.OnClick:= MenuItemClick;
end;
procedure TForm1.MenuItemClick(Sender: TObject);
begin
ListBox1.ItemIndex:= TMenuItem(Sender).Tag-1;
end;
end.
나사 님이 쓰신 글 :
: 류종낵께서 말씀하신 것이 맞습니다.
: 그런데 제가 워낙 허접해서 tag가 무슨 소린지도
: 모르겠습니다.
: 원리는 알지만 구현할 방법을 모르는 이 초보를위해
: 간단한 정말 간단한 샘플 코드라도 보여주실수는 없는지요..???
: 정말 죄송한 말인거 알지만 부탁드립니다.
:
:
: 류종택 님이 쓰신 글 :
: : 원하시는 작업을 제대로 이해할 수가 없습니다..
: : 좀더 자세한 설명 또는 소스가 필요할 듯 합니다..
: :
: : 여하튼 그냥 감 잡히는데로 설명드리면..
: : 동적으로 생성된 메뉴 아이템의 Tag에 리스트박스의..
: : 아이템인덱스를 입력해두시고..
: : 메뉴 아이템이 클릭되었을 때..
: : TMemniItem(Sender).Tag를 참조하시면..
: : 원하는 리스트 박스의 아이템을 찾아내는데 도움이 될 것 입니다..
: :
: :
: : Voice of Delphi, 류..
: :
: :
: : 나사 님이 쓰신 글 :
: : : 안녕하십니까.
: : : 델 왕 초보입니다.
: : : 질문이 있어 이렇게 글을 올립니다.
: : :
: : : 리스트박스에 있는 아이템과 메뉴에 있는 아이템을 연결하고
: : : 싶습니다.
: : :
: : : 리스트박스에 리스트 인덱스가 있는 것으로 아는데
: : : 메뉴를 동적으로 생성할때 리스트박스의 리스트인덱스와 동일하게
: : : 생성한 후 메뉴 아이템을 클릭하면 리스트박스의 같은 인덱스가 클릭되게
: : : 하고 싶습니다.
: : : 그런데 리스트박스와 메뉴아이템의 메뉴를 동일하게 생성은 했는데
: : : 메뉴를 클릭했을때 리스트박스의 같은 목록이 클릭되는건 안되네요.
: : :
: : : 도움 부탁드립니다.
: : :
|