안녕하세요..
작업 하다.. 막히는 부분인데요.. 어제부터 이렇게도
해보고.. 저렇게도 해보다가..안되서리.. 질문 올립니다.
이게시판에서 툴바의 버튼을 동적 생성하는 방법에 따라서..
아래와 같이 코딩했습니다.
근데 문제는.. 이렇게 한다음.. ToolBar.OnClick 이벤트로 연결 시켜 줬는데
ToolBar.OnClick이벤트에서 버튼을 구분 할 수 있나여??
예를 들어.. 3개의 버튼을 동적으로 생성 한다음..
2번째 버튼을 클릭했을때 2번째 버튼이 클릭
툴버튼의 Tag속성에 2번째를 표시하는 숫자를 넣어서 Sender파라매터를 이용하세요...
두번째 툴버튼생성할때...
with TToolButton.Create(ToolBar) do
begin
Parent := ToolBar;
Caption := Copy(Title,0,6)+'...';
Style := tbsButton;
ImageIndex := 0;
Tag := 2; // 두번째 툴버튼...
OnClick := ToolBar.OnClick;
end;
procedure TForm1.ToolBarClick(Sender: TObject);
begin
if (Sender is TToolButton) then
if TToolButton(Sender).Tag = 2 then // 두번째 툴버튼을 눌렀다면
어쩌구 저쩌구...
end;
^^ 항상 즐코하세요...
Ziker wrote:
> 안녕하세요..
> 작업 하다.. 막히는 부분인데요.. 어제부터 이렇게도
> 해보고.. 저렇게도 해보다가..안되서리.. 질문 올립니다.
>
> 이게시판에서 툴바의 버튼을 동적 생성하는 방법에 따라서..
> 아래와 같이 코딩했습니다.
> 근데 문제는.. 이렇게 한다음.. ToolBar.OnClick 이벤트로 연결 시켜 줬는데
> ToolBar.OnClick이벤트에서 버튼을 구분 할 수 있나여??
>
> 예를 들어.. 3개의 버튼을 동적으로 생성 한다음..
>
> 2번째 버튼을 클릭했을때 2번째 버튼이 클릭