delphi 编程技巧

				delphi的消息对话框 (2000年12月4日) 
				
				本站更新  分类:   作者:srw  推荐:   阅读次数:656  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				1、messagebox：显示一条消息和一个或多个按钮，并且可以通过用户在对话框中的选择接收用户的响应。
				2、messagedlg：
				语法格式：
				function messagedlg(const msg:string; AType: TMsgdlgtype; Abuttons; TMsgdlgbuttons; helpctx: longint 
				):word;
				它包括四个参数，第一个参数msg是显示在对话框中的消息；第二个参数Atype是对话框所包含的不同图标类型。
				第三个参数AButtons是对话框所包含的按钮数目和类型，AButton参数为TMsgdlgbtns类型，它是一个集合，因此在应集合内可包含多个按钮。
				helpCtx参数定义对话框的帮助屏幕。当用户从对话框中选取一个按钮后，messagedlg函数返回一个值表示此按钮被选中，其返回值与按钮的关系如下所示：
				数值 含义 
				mrNone 没有选中任何按钮 
				mrOK 选中mrOK按钮 
				mrCancel 选中mrCancel按钮 
				mrAbort 选中mrAbort按钮 
				mrRetry 选中mrRetry按钮 
				mrIgnore 选中mrIgnore按钮 
				mrYes 选中mrYes按钮 
				mrNo 选中mrNo按钮 
				mrAll 选中mrAll按钮 
				
				[例]：if messagedlg('want to exit system?',mtconflrmation, [mbYes, mbNo],0)=mrYes then
				messagedlg('exit system now!',mtinformation,[mbOK], 0); 
				3、messagedlgpas函数，它的使用基本与messagedlg相同，只是多了两个参数X和Y，可以在用户指定的位置显示对话框。
				4、showmessage函数，它只带一个字符串参数msg，用于显示一个带OK按钮的对话框，对话框的消息为msg，标题为可执行文件名。
				如：showmessage('what are you saying?');
				5、showmessagepos函数，它的使用基本与showmessage相同，只是多了两个参数X和Y，可以在用户指定的位置显示对话框。
				如：showmessagepos('what are you saying?',125.25) 
				
				
				
				调用外部EXE文件：
				use WinProcs
				……
				begin
				winExec(……)；
				……
				end； 
				
				
				
				
				
				
				
				
				
				
				
				delphi对JPEG图像文件的处理：
				一、显示JPEG图像文件
				在USES中加入JPEG，用loadfromfile调入某个JPEG文件，然后用FORM的canvas.draw(x,y,jpeg)即可显示。
				二、编写一个处理JPEG图像文件的程序：
				
				interface
				
				uses
				Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,jpeg; //在USES中加入JPEG单元
				
				type
				TForm1 = class(TForm)
				procedure FormCreate(Sender: TObject);
				private
				{ Private declarations }
				public
				{ Public declarations }
				end;
				
				var
				Form1: TForm1;
				
				implementation
				
				{$R *.DFM}
				
				var
				AJPEG:TJPEGImage; //定义一个全局变量
				
				procedure TForm1.FormCreate(Sender: TObject);
				begin
				AJPEG:=TJpegimage.create //动态生成AJPEG
				AJPEG.loadfromfile('c:\photo.jpg') //调入JPEG文件
				end;
				
				procedure TForm1.onpain(Sender:TObject);
				begin
				canvas.rectangle(2,2,650,430); //画一个黑框将图片围住
				x:=10;y:=10;
				form1.canvas.draw(x,y,AJpeg); 
				//以（X，Y）为上角输出JPEG文件
				end;
				
				procedure TForm1.browseClick(Sender: TObject);
				begin
				if openpicturedialog.execute then
				begin
				ajpeg.free;
				ajpeg:=Tjpegimage.create;
				ajpeg.loadfromfile(openpicturedialog.filename);
				end;
				canvas.rectangle(2,2,560,430); //将form clear
				x:=10; y:=10;
				form1.canvas.draw(x,y,ajpeg); //显示新的ajpeg
				end;
				
				end.