摘要:
{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... 阅读全文
摘要:
procedure TForm12.Button2Click(Sender: TObject); var mystring: PChar; begin GetMem(mystring, 1024); GetWindowText(Button1.Handle,mystring,100); Label1.Caption := Format('%s:%d', [mystring, st... 阅读全文
摘要:
procedure TForm11.Button5Click(Sender: TObject); var getPath: string; setPath: string; getstream, setstream: TFileStream; num, n: Integer; buf: PByte; bufsize, block: Integer; begin get... 阅读全文
摘要:
procedure TForm11.Button2Click(Sender: TObject); begin dxGaugeControl1DigitalScale1.Value := '1234'; end; 阅读全文