procedure TTitleBarButton.Repaint;
begin
Paint;
end;
end.
另外,还可以对这个组件进一步扩展,扩展其它任一窗体,只要知道了窗体的Handle就行了。
上一页 [1] [2] [3] [4] [5]