2018年6月26日
delphi 通过windows api 创建窗体
摘要： {Register the Window class} function RegisterClassMeth: Boolean; var WindowClass: TWndClass; begin {setup our new window class} WindowClass.style := CS_HREDRAW or CS_VREDRAW; {set the class sty... 阅读全文
posted @ 2018-06-26 15:53 夏天的西瓜君 阅读(418) 评论(0) 推荐(0) 编辑
delphi GetMem使用
摘要： procedure TForm12.Button2Click(Sender: TObject); var mystring: PChar; begin GetMem(mystring, 1024); GetWindowText(Button1.Handle,mystring,100); Label1.Caption := Format('%s:%d', [mystring, st... 阅读全文
posted @ 2018-06-26 11:23 夏天的西瓜君 阅读(941) 评论(0) 推荐(0) 编辑
delphi 利用TFileStream和TcxProgressBar拷贝文件
摘要： procedure TForm11.Button5Click(Sender: TObject); var getPath: string; setPath: string; getstream, setstream: TFileStream; num, n: Integer; buf: PByte; bufsize, block: Integer; begin get... 阅读全文
posted @ 2018-06-26 10:27 夏天的西瓜君 阅读(325) 评论(0) 推荐(0) 编辑
TdxGaugeControl
摘要： procedure TForm11.Button2Click(Sender: TObject); begin dxGaugeControl1DigitalScale1.Value := '1234'; end; 阅读全文
posted @ 2018-06-26 09:11 夏天的西瓜君 阅读(262) 评论(0) 推荐(0) 编辑