- 博客(4)
- 收藏
- 关注
原创 窗体
procedure TForm1.FormCreate(Sender: TObject); var FullRgn, ClientRgn, ButtonRgn: THandle; LeftMargin,TopMargin:Integer; Margin, X, Y: Integer; i:integer; begin Margin := (Width - Clie
2011-12-20 14:34:02 299
原创 窗体移动(消息欺骗应用)
通过对窗体消息WM_NCHITTEST的欺骗,使其认为鼠标位置在标题栏,进而直接对窗体(非标题栏)拖动即可移动整个窗体. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = clas
2011-12-20 11:28:49 322
原创 ADOQuery返回值用TGrid单元合并(FlexCell插件)
var cell: _Cell; range: _Range; col_,row_,n_:integer; cell_1,cell_2:string; begin col_:=1; row_:=2; n_:=0; repeat n_:=n_+1; cell:=Grid1.Cell(row_,col_); cell_1:=cell.Text; cell:=Grid1.Cell(r
2011-12-17 16:48:53 712
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人