核心提示:procedure TForm1.Button3Click(Sender: TObject);beginif csAcceptsControls in TControl(Sender).Control...
procedure TForm1.Button3Click(Sender: TObject);begin
if csAcceptsControls in TControl(Sender).ControlStyle then
showmessage('ok');
end;
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
惊讶 | 欠揍 | 支持 | 很棒 | 愤怒 | 搞笑 | 恶心 | 不解 |