一个简单的基础问题。。。。。

Question

比如我想实现WINDOWS 的记事本的功能时，点关闭按钮时，会询问文件是否保存。
如果点 CANCAL 将会返回原窗口。怎么来实现？是不是使用FORM的 ONCLOSE 事件？
另一个问题。怎么调用 WINDOWS 的打印机？

Answer 1

第一个问题：
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   CanClose：=FALSE;
end;
第二个问题：
   用API函数

Answer 2

2：报表或者其他的控件有的是支持打印的
1：如果你用的是关闭按牛，那么你可以写他的click事件
用messagebox判断你点的是ok还是cancel，这样就可以控制是否退出了 肯定ok你的第一个问题！

Answer 3

用OnCloseQuery事件。
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=False;
  if ShowMessage('确实要关闭吗？')　then
     CanClose：=true;
end;

Answer 4

改一下楼上的。
用OnCloseQuery事件。
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=False;
  if Application.Message('确实要关闭吗？','请确认',MB_YESNO+MB_IconQuestion)=IDYES　then
     CanClose：=true;
end;

Answer 5

function Form1.PrintExist: boolean;
var
  LstTemp: TStrings;
begin
  LstTemp := TStringList.Create;
  try
    LstTemp.Clear;
    LstTemp.Assign(Printer.Printers);
    if LstTemp.CommaText = '' then
      Result := False
    else
      Result := True;
  finally
    LstTemp.Free;
  end;
end;

Answer 6

yplin(第五次被甩:其实我不是程序员)   能把程序加写注释么？我是新手看不懂！