摘要：
//dll 文件libraryplaySound; uses SysUtils, Classes; {$R*.res} //{$R'XXX.RES''XXX.RC'}自动编辑 {$R'WavRes.RES''WavRes.rc'} begin end. //调用dll中的WAV资源
usesMMSystem;{MMSystem} procedureTFo... 阅读全文
摘要：
//建立1个ConsoleApplication 把代码往里面粘贴/////////////////////////////////////////////////////{break}programProject1; {$APPTYPECONSOLE} uses SysUtils; vari:Integer; begin {break在各循环中调用Break，可以使得程序的执行流程立即跳到循环的... 阅读全文
摘要：
delphi TStringList 用法详解
//TStringList 常用方法与属性 :var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange... 阅读全文
摘要：
//方法1uses ShlObj;SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); //方法2procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, ... 阅读全文
摘要：
在uses中引入 IniFiles;{本例在{$R *.dfm}下面使用uses IniFiles;将会 出现 Undeclared identifier:'IniFile'错误}privatemyIniFile: TIniFile;{声明部分,也可在implementatio上面的Var下面声明}//创建并写一个IniFile文件procedure TForm1.Button1Click(Sen... 阅读全文
摘要：
功能说明：随时响应用户输入procedureTForm1.FormKeyPress(Sender: TObject;varKey: Char);beginif ActiveControl <> Memo1 thenwith Memo1.Lines dobeginText:=Text+Key;//取得用户得按键end;end;通过 Wiz 发布 阅读全文
摘要：
//设置窗体在屏幕中的位置procedure TForm1.SpeedButton1Click(Sender: TObject);begintryif (Edit1.Text<>'') and (Edit2.Text<>'') thenif (StrtoInt(Edit1.Text)<800) and (StrtoInt(Edit2.Text)<600) thenbeginForm1.Left :... 阅读全文
摘要：
//数组类型{ 数组类型定义了一组指定类型的元素序列，在方括号中填入下标值就可访问数组中的元素。定义数组时，方括号也用来指定可能的下标值。例如，下面的代码中定义了一个有24个整数的数组：}typeDayTemperatures = array [1..24] of Integer;{在数组定义时，你需要在方括号中填入一个子界类型的值，或者用两个有序类型的常量定义一个新的子界类型，子界类型指定了数组... 阅读全文
摘要：
功能说明：procedure TForm1.Edit1KeyUp(Sender: TObject;var Key: Word;Shift: TShiftState);beginif Key= VK_tab then Showmessage('VK_TAB');end;通过 Wiz 发布 阅读全文
摘要：
//常量 const{对于在程序运行期间保持不变的值，Pascal允许通过常量来声明。声明常量不必特定数据类型，但需要赋一个初值。编译器会根据所赋初值自动选用合适的数据类型。}//常量分配内存，并把常量的值放入内存constThousand = 1000;Pi = 3.14;AuthorName = 'Marco Cantù';//如果你想告诉Delphi 采用特定的类型，你可在声明中加入类型名/... 阅读全文
摘要：
功能说明：将字符串中的字符依次写入数组procedureTForm1.Button1Click(Sender: TObject);varstr:string;a:array[0..79]ofchar;beginstr:='字符串转换测试';strPcopy(a,str);canvas.TextOut(10,10,string(a));end;通过 Wiz 发布 阅读全文
摘要：
// 在窗口间移动按扭procedure TForm1.Button1Click(Sender: TObject);beginif Button1.Parent=Form1 thenbeginbutton1.Caption:='单击返回';Button1.Parent:=Form2;Button1.Left := 232;Button1.Top := 88;endelsebeginbutton1.... 阅读全文
摘要：
功能说明：同时响应一个事件procedure TForm1.Button1Click(Sender: TObject);beginIfTbutton(sender).Name='Button1'then showmessage('你单击了Button1');IfTbutton(sender).Name='Button2'then showmessage('你单击了Button2');IfTbutt... 阅读全文
摘要：
//命名及不命名的类型{为了后续使用或直接用于变量，需要给自定义类型命名。如果自定义一个命名的类型，你必须将代码放在特定的type区，如下所示：}type// subrange definitionUppercase = 'A'..'Z';// array definitionTemperatures = array [1..24] of Integer;// record definitionD... 阅读全文
摘要：
procedureTForm1.Button1Click(Sender:TObject); var result:Integer; i:Integer; begin Memo1.Clear; fori:=0to10do begin Randomize; Result:=Random(1000)+1; Memo1.Li... 阅读全文