- 博客(3)
- 收藏
- 关注
原创 在delphi中将form保存为图像,包含滚动条隐藏的部分
根据TCustomForm.GetFormImage修改得来:procedure TForm1.BitBtn1Click(Sender: TObject);var ABitmap: TBitmap; i: Integer;begin ABitmap := TBitmap.Create; if Self.HorzScrollBar.Visible then ABitmap
2006-05-31 17:43:00 972
原创 双击GRID中线调整列宽
procedure TForm1.StringGrid1DblClick(Sender: TObject);var p : TPoint; r : TRect; ACol, ARow : Integer;begin if GetCursor = Screen.Cursors[crHSplit] then begin GetCursorPos(p); p := StringGr
2006-02-21 13:43:00 770
原创 DBGRID中移动鼠标显示鼠标下CELL中文本
TTestGrid = class(TCustomDBGrid)end;procedure TMainFrm.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var OldActive : Integer;begin if (DBGrid1.MouseCoord(X,Y).X = 0) or (DB
2006-02-21 13:33:00 942
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人