请问这样的信息提示框怎么做？？？？(30分)

L

ld999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #1

我想在报表打印前显示一个提示框，里面有“报表预览”、“报表打印”、“取消”按钮，
我用Application.MessageBox 函数只能做出标准的对话框。请问这种三个按钮的自定义对话
框如何做？？？？
我的分数只有30分了，因为是初学者，还请大家不要嫌分少，多多帮助!!!谢谢!!!!

 

M

myname

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #2

自己做一个吧，更灵活。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #3

自己New一个Form，放上你的Button及提示信息，打印前把它ShowModal出来就行了。

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #4

就是啊，自己新做一个窗体什么都解决了！

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #5

就是,自己做一个新的窗体不就行了吗?

 

坦

坦克

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #6

LAZY

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #7

TMyMessageFor=class(TForm)
....
public
function Execute:boolean;
end;
var
MyMessageForm: TMyMessageForm;

function TMyMessageForm.Execute;
begin
if MyMessageForm = nil then begin
MyMessageForm := TMyMessageForm.Create(nil);
ene;
try
with MyMessageForm do begin //这是必须的
//先初始化窗口;
//然后ShowModal;
//最后是结果处理
end;
finally
MyMessageForm.Free;
MyMessageForm := nil;
end;
end;

试一试 ^_^

 

L

ld999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-26

• #8

接受答案了.