2015年8月26日
Delphi控件的显示内容与显示边框是两回事
没有内容，不代表没有边框。比如设计期一个空的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)
怎样在delphi中实现控件和窗体的拖拽
下面这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)
Scrollbox的滚动条事件scrollbar事件的处理（Lazarus）
没办法，改源代码： 找到：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)
2015年8月25日
TControl.WMLButtonUp的inherited的作用——是为了给子类控件新的处理消息的机会
意外注意到这个小细节： 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一定要做一次连接即可。否则点击一下按钮，会不断弹出多次窗口。另外，也不用管这个对象有没有被实例化，connect都不会出错。 Read More
posted @ 2015-08-25 20:26 findumars Views(674) Comments(0) Diggs(0)