Question

delphi，点击一个按钮，当点击这个按钮的时候 要弹出一个提醒

当到了那一天后 以后的日子只要点击这个按钮，都要弹出提醒，比如我指定在2011年5月8号以后，只要以后点击这个按钮，每次都要提醒，

Answer 1

confirmation，mbyesnocancel,0)=mryes then
.........//执行语句
else
.........
end.
///////////////////////////////////////////
也可以写成if messagedlg('确认删除？'，mtconfirmation，[mbyes,mbNO],0)=mryes then
.........//执行语句
else
.........
end.
//////////////////////////////////////////////////
或者用messsagebox
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageBox(Form1.Handle,'确认删除？','删除框',MB_OKCANCEL+MB_DEFBUTTON2)=1 then
............//执行删除语句
else
..........
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
sdate, ndate: string;
begin
sdate:= '2011'+'05'+'08'; //可以用Edit控件获取.
ndate:= FormatDateTime('yyyy'+'mm'+'dd', Now);
if ndate > sdate then
begin
ShowMessage('已超出指定日期!'); //内容自定义.
end;
end;