摘要：
准备工作: 在窗体上放置一个 TPanel; 在 TPanel 上放一个 TImage; 另外需要三个按钮. 本例效果图: 第一版代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, E... 阅读全文
posted @ 2008-04-03 22:04
万一
阅读(4343)
评论(7)
推荐(0)
摘要：
剪切板类 TClipboard 定义在 Clipbrd 单元, 使用前先要 uses Clipbrd; uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); var clip: TClipboard; begin clip := TClipboard.Create; {建立} clip.AsText := Se... 阅读全文
posted @ 2008-04-03 17:05
万一
阅读(7903)
评论(9)
推荐(0)
摘要：
GetOpenClipboardWindow: HWND; {} GetPriorityClipboardFormat( var paFormatPriorityList; {} cFormats: Integer {} ): Integer; {} IsClipboardFormatAvailable( format: UIN... 阅读全文
posted @ 2008-04-03 16:33
万一
阅读(4542)
评论(2)
推荐(0)
摘要：
function LoadMenu( hInstance: HINST; {} lpMenuName: PChar {} ): HMENU; {} function LoadMenuIndirect( lpMenuTemplate: Pointer {} ): HMENU; {} function GetMenu( hW... 阅读全文
posted @ 2008-04-03 16:32
万一
阅读(4788)
评论(3)
推荐(0)
摘要：
function LoadAccelerators( hInstance: HINST; {} lpTableName: PChar {} ): HACCEL; {} function CreateAcceleratorTable( var Accel; {} Count: Integer {} ): HACCEL; {}... 阅读全文
posted @ 2008-04-03 16:32
万一
阅读(2707)
评论(0)
推荐(0)
摘要：
声明: EmptyClipboard: BOOL; {} 举例: begin OpenClipboard(0); EmptyClipboard; CloseClipboard; end; 阅读全文
posted @ 2008-04-03 16:31
万一
阅读(3144)
评论(0)
推荐(0)
浙公网安备 33010602011771号