摘要：
procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1,0);end;通过 Wiz 发布 阅读全文
posted @ 2012-06-03 17:56
XE2011
阅读(251)
评论(0)
推荐(0)
摘要：
//WM_PAINT带背景的窗体private{ Private declarations }Bitmap:TBitmap;procedure WMPaint(var msg:TWMPAINT);Message WM_PAINT;procedure TForm1.WMPaint(var msg:TWMPAINT);begininherited;StretchBlt(canvas.Handle,0,... 阅读全文
posted @ 2012-06-03 17:56
XE2011
阅读(478)
评论(0)
推荐(0)
摘要：
//sendmessage WM_PAINT带背景的窗体private{ Private declarations }Bitmap:TBitmap;procedure WMPaint(var msg:TWMPAINT);Message WM_PAINT;procedure TForm1.WMPaint(var msg:TWMPAINT);begininherited;StretchBlt(canv... 阅读全文
posted @ 2012-06-03 17:56
XE2011
阅读(218)
评论(0)
推荐(0)
摘要：
//TMemo组件的光标定位privateprocedure MemoRow;{ Private declarations }varForm1: TForm1;procedure TForm1.MemoRow;varLpos,Cpos,LineLength:Integer;beginLpos := SendMessage(Memo1.Handle,em_linefromchar,Memo1.Sel... 阅读全文
posted @ 2012-06-03 17:56
XE2011
阅读(426)
评论(0)
推荐(0)
摘要：
function Mynum(hand:HWND;lparam:Lparam):integer;stdcall;function Mynum(hand:HWND;lparam:Lparam):integer;stdcall;varbuff:Array[0..255] of char;dc:HDC;beginif Hand<>0 thenbegingetwindowtext(hand,buff,25... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(327)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);varhandle:integer;aBool:Boolean;beginSystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@aBool,0);if aBool thenbeginhandle:=Findwindow('shell_traywnd',nil);S... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(152)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);varHWndCalculator : HWnd;beginHWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄if HWndCalculator <> 0 thenSendMessage(HWndCalculator, WM_CLOSE, 0, 0);... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(127)
评论(0)
推荐(0)
摘要：
http://www.websnap123.com/http://delphi.about.com/http://www.2ccc.com/http://www.delphifans.com/http://www.tommstudio.com/http://www.xuedelphi.cn/通过 Wiz 发布 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(155)
评论(0)
推荐(0)
摘要：
//With简化代码语句{With语句是一种用于简化代码的语句。如你要访问一个记录类型变量（或一个对象），用With语句就不必每次重复变量的名字with 对象名 dobegin对象名属性 := 属性值;end;}//例1with Button1 dobegincaption := 'Btn';width := 100;end;//例2with edit1 dobegintext := 'Hello... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(105)
评论(0)
推荐(0)
摘要：
//简单语句和复合语句简单语句Pascal 简单语句中不包含任何别的语句，赋值语句和过程调用即是简单语句的例子。简单语句用分号隔开，如下所示：X := Y + Z; // assignmentRandomize; // procedure call复合语句用begin 和end 将简单语句括起来即组成复合语句，复合语句用法与普通的Pascal 语句相同，见下例：beginA := B;C := A... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(230)
评论(0)
推荐(0)
摘要：
//while循环语句{while True dobegin...end;}procedure TForm1.Button1Click(Sender: TObject);varI: Integer;beginI := 0;while I > 100 dobeginI := I + Random (100);Listbox1.Items.Add ('Random Number: ' + IntToS... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(104)
评论(0)
推荐(0)
摘要：
//计算100以内的奇数平方和varForm1: TForm1;i,k,sum:integer; //i,sum为整形数值 k为最后一个奇数为implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begini:=0;sum:=0; //初始化 i,sum的值while i<=100 do //当 i是100以内... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(766)
评论(0)
推荐(0)
摘要：
//repeat loop {repeat...until (True);...}通过 Wiz 发布 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(238)
评论(0)
推荐(0)
摘要：
//循环按1 到6 F1到F8procedure TForm1.Timer1Timer(Sender: TObject);varwmHwnd:HWND;i:integer;beginwmHwnd:=FindWindow(nil,'Element Client');for i := 49 to 54 do //键1到1键6beginSendMessage(wmHwnd,WM_KEYDOWN,i,0)... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(184)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);varhandle:integer;aBool:Boolean;beginSystemParametersInfo(SPI_GETSCREENSAVEACTIVE,0,@aBool,0);if aBool thenbeginhandle:=Findwindow('shell_traywnd',nil);S... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(87)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button1Click(Sender: TObject);varHWndCalculator : HWnd;beginHWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄if HWndCalculator <> 0 thenSendMessage(HWndCalculator, WM_CLOSE, 0, 0);... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(161)
评论(0)
推荐(0)
摘要：
//if 条件语句条件语句通过条件检测，判断是否执行该条件语句中包含的语句。条件语句可有两种基本形式：if语句和case语句。If语句对if-then型语句，仅当条件满足时，语句才执行；对if-then-else型，if语句在两条语句中选择一条执行。procedure TForm1.Button1Click(Sender: TObject);begin// simple if statementi... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(163)
评论(0)
推荐(0)
摘要：
//For循环{Pascal 中的for循环严格地建立在计数器基础上，循环每执行一次，计数器不是增加一个值就是减小一个值。注意：用 Break 和 Continue 系统过程可以改变循环执行的标准流程。Break中断循环；Continue直接跳至循环测试句，或使计数器增加一个步长，然后继续循环（除非条件为空或计数器达到最大值）。还有两个系统过程 Exit 和 Halt，让你立即从函数或过程中返回，... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(123)
评论(0)
推荐(0)
摘要：
uses ShellAPI;{$IFNDEF Win32}//Var上面end;下面function ShellAbout(Wnd: HWnd; App, Stuff: PChar; Icon: HIcon): Integer; far; external 'shell';{$ENDIF}procedure TForm1.Button1Click(Sender: TObject);beginShe... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(158)
评论(0)
推荐(0)
摘要：
//列举正在运行的程序uses ShellApi;{在interface下面type上面输入}const MY_MESSAGE = WM_USER + 100;procedure TForm1.Button1Click(Sender: TObject);varhCurrentWindow:HWnd;szText:array[0..254] of char;beginhCurrentWindow :... 阅读全文
posted @ 2012-06-03 17:55
XE2011
阅读(140)
评论(0)
推荐(0)
浙公网安备 33010602011771号