没有内容,不代表没有边框。比如设计期一个空的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)
意外注意到这个小细节: procedure TControl.WMLButtonUp(var Message: TWMLButtonUp); begin inherited; // 注意,如果是直接点击Form1,会执行TCustomForm.DefaultHandler(var Message); Read More
posted @ 2015-08-25 20:41 findumars Views(230) Comments(1) Diggs(0)
所以connect一定要做一次连接即可。否则点击一下按钮,会不断弹出多次窗口。另外,也不用管这个对象有没有被实例化,connect都不会出错。 Read More
posted @ 2015-08-25 20:26 findumars Views(674) Comments(0) Diggs(0)