蓝天白云 – 第38页

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
var
  CbBuf: PChar;
  BufSize: Integer;
  H: THandle;
begin
  if Clipboard.HasFormat(CF_TEXT) then begin
    H := ClipBoard.GetAsHandle(CF_TEXT);
    BufSize := GlobalSize(H);
    GetMem(CbBuf, BufSize);
    BufSize := Clipboard.GetTextBuf(cbBuf, BufSize);
    Edit1.Text := cbBuf;
  end;
end;

uses Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);

var

CbBuf: PChar;

BufSize: Integer;

H: THandle;

begin

if Clipboard.HasFormat(CF_TEXT) then begin

H := ClipBoard.GetAsHandle(CF_TEXT);

BufSize := GlobalSize(H);

GetMem(CbBuf, BufSize);

BufSize := Clipboard.GetTextBuf(cbBuf, BufSize);

Edit1.Text := cbBuf;

end;

socket错误码及可能的问题

分类：Delphi, Internet No Responses »

8月 232012

下面是Socket Error的错误码和描述： Socket error 0 – Directly […]

Android中用ListView实现表格部局

分类：Android No Responses »

8月 202012

* 本例使用ListView和自定义的行部局实现了一个最基本的表格部局 * 和一个可变长度的表格部局 * 并实 […]

Android中连接无线时“连接”按钮为灰色的处理办法

分类：Android No Responses »

8月 132012

在Android中连接无线网络，输入密码后，“连接”按钮为灰色，不能使用。原因： 1、你使用的无线路由器的密 […]

Page 38 of 40 Newer Entries 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 Older Entries