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)