delphi的消息对话框

    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.