uses RichEdit;{将RichEdit1的内容保存为图片,此函数也适合于RxRichEdit,即RichEdit: TRxRichEdit}procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerI... Read More
posted @ 2015-11-26 22:14
findumars
Views(1572)
Comments(0)
Diggs(0)
uses Windows;type TfrmLogin = class(TForm) end;implementation{$R *.dfm}procedure TfrmLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handl... Read More
posted @ 2015-11-26 22:13
findumars
Views(989)
Comments(0)
Diggs(0)
需要用到的一个函数:LONG SetWindowLong( HWND hWnd, int nIndex, LONG dwNewLong);program Project;usesForms,Windows,ufrmMain in 'ufrmMain.pas' {frmMain};{$R ... Read More
posted @ 2015-11-26 22:11
findumars
Views(240)
Comments(0)
Diggs(0)
核心提示:使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏。使用Windows95/NT/98操作系统的用户知道:Windows正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是... Read More
posted @ 2015-11-26 22:10
findumars
Views(2033)
Comments(0)
Diggs(0)
// 方法1var Icon : TIcon; Bitmap : TBitmap;begin Icon := TIcon.Create; Bitmap := TBitmap.Create; Icon.LoadFromFile('c:\picture.ico'); //Load a... Read More
posted @ 2015-11-26 22:08
findumars
Views(996)
Comments(0)
Diggs(0)

浙公网安备 33010602011771号