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;
이상하게도 맨왼쪽 하나는 되는 데 나머지는 안된다 말이야
고수님들 알으켜 주세요!......
부탁합니다.