好东东推荐！编程助手：MessageBox Express！ (0分)

liuyj@cbn.com.cn

MessageBox Express
下载地址：
http://delphi.mychangshu.com/dispdoc.asp?id=538

给份源码好吗?谢谢
renqinling@sohu.com

多么无聊的玩艺啊！！！第一次看到！

我要源码，谢谢。
hbezwwl@163.com

我要原码
qiuxueting@goldxinyi.com.cn
不会让我等得太久太久吧

我看過,還可以. 我要源代碼,可以嗎? zbthm@163.net 謝謝!

看来大家好象对Windows API还不是很了解，应该多看看联机帮助，
其实底层都是调用MessageBox(hWnd,pNote,pTitle,button_style)函数，
大家看看就明白了

jgyjx@sina.com
谢谢

pkl888@sohu.com
多谢！

polaris_cn@sina.com.cn
多谢！多谢！！

oldppp@263.net
Thank you!

ceshi111@263.net
谢谢大哥！
别累坏了！

doudou@199net.com

thank you!~

vikon_chan@163.com
谢过啦

最常用的不就是下面几个嘛，没必要为此太劳心吧？
function ShowAsk(ahWnd: THandle;
asInfo: string): Integer;
function ShowAsk3(ahWnd: HWND;
asInfo: string): Integer;
procedure ShowInfo(ahWnd: THandle;
asInfo: string);
procedure ShowError(ahWnd: THandle;
asInfo: string);
procedure ShowInEdit(const asCaption, asInfo: string);
function Input(const asCaption: string;
var asInput: string): Boolean;
function InputIP(var asIP: string): Boolean;
procedure ShowInfo(ahWnd: THandle;
asInfo: string);
begin
MessageBox(ahWnd, PChar(asInfo), '提示', MB_ICONINFORMATION + MB_OK);
end;
procedure ShowError(ahWnd: THandle;
asInfo: string);
begin
MessageBox(ahWnd, PChar(asInfo), '错误', MB_ICONERROR + MB_OK);
end;
function ShowAsk(ahWnd: THandle;
asInfo: string): Integer;
begin
Result := MessageBox(ahWnd, PChar(asInfo), '提示', MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2);
end;
function ShowAsk3(ahWnd: HWND;
asInfo: string): Integer;
begin
Result := MessageBox(ahWnd, PChar(asInfo), '提示', MB_ICONQUESTION + MB_YESNOCANCEL + MB_DEFBUTTON1);
end;
procedure ShowInEdit(const asCaption, asInfo: string);
var
edtInput: TEdit;
frmDlg: TForm;
begin
frmDlg := CreateMessageDialog(asCaption, mtInformation, [mbOK]);
with frmDlgdo
try
Caption := Application.Title;
Width := 280;
Height := 120;
edtInput := TEdit.Create(frmDlg);
with edtInputdo
begin
Parent := frmDlg;
Left := 56;
Top := 32;
Width := 180;
Height := 23;
TabOrder := 1;
Text := asInfo;
ReadOnly := True;
Color := clBtnFace;
end;

with TButton(Components[2])do
begin
Caption := '确定';
Width := 80;
Left := 100;
TabOrder := 2;
end;
ShowModal;
finally
Free;
end;
end;

还是E—MAIL我一份吧。
pioneer_wk@263.net