Q&A

  • toolbar를 동적으로 생성하고 나서 이벤튼 설정하였는데 이런 이것이 안되....
procedure TMainForm.DocSelectorCreate(Capt:string);



var

DocSelectorObj:TToolButton;

begin

DocSelectorObj:=TToolButton.Create(Docselector);

with DocSelectorObj do begin

Parent :=Docselector;

style:=tbsButton;

Caption:= ExtractFileName(Capt);

Hint:=Capt;

down:=true;

OnClick:= DocSelectorObjClick;

end;

end



procedure TMainForm.DocSelectorObjClick(Sender: TObject);

begin

TToolButton(sender).down:=true;<--이부분이 안됨

end;



이상하게도 맨왼쪽 하나는 되는 데 나머지는 안된다 말이야

고수님들 알으켜 주세요!......

부탁합니다.

0  COMMENTS