Delphi
纯洁的兔子
这个作者很懒,什么都没留下…
展开
-
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 阅读 · 0 评论 -
窗体移动(消息欺骗应用)
通过对窗体消息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 阅读 · 0 评论 -
窗体
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 阅读 · 0 评论