没有内容,不代表没有边框。比如设计期一个空的TImage仍是有边框的。if (csOpaque in image1.ControlStyle) then ShowMessage('不透明')else ShowMessage('透明') // image1没有内容的时候,就是透明;有内容的时候,就是不... Read More
posted @ 2015-08-26 17:30
findumars
Views(1373)
Comments(0)
Diggs(0)
下面这2种方法都能实现对控件和窗体的拖拽方法1procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture... Read More
posted @ 2015-08-26 16:15
findumars
Views(1229)
Comments(0)
Diggs(0)
没办法,改源代码: 找到:Forms单元中scrollbox的父类: TScrollingWinControl = class(TCustomControl) 改: { TScrollingWinControl } // //begin TOnAfterScroll=procedure(Scroll Read More
posted @ 2015-08-26 05:07
findumars
Views(1062)
Comments(0)
Diggs(0)