1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
program ReportBuilder;
uses
Winapi.Windows, .........
var
myDesigner: TppDesigner;
myReport: TppReport;
procedure myClose(Sender: TObject; var Action: TCloseAction);
procedure myClose(Sender: TObject; var Action: TCloseAction);
begin
if myDesigner.MyReport.Modified then begin
if MessageDlg('Do you want to save the report?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
begin
MyReport.Template.SaveToFile;
end;
end;
end;
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
myDesigner := TppDesigner.Create(Application);
myReport := TppReport.Create(Application);
myDesigner.Report := myReport;
myDesigner.OnClose := myClose;
myDesigner.ShowModal;
Application.Run;
end.
Имеется кусок кода (открывалка отчетов).
Работает нормально, только без вызова myClose (Захотелось сдклать красиво, чтобы проверялось перед закрытием - нет ли открытых файлов).
Возможно проблема в том, что код непосредсственно в коде dpr файла, но возможно и нет.
То есть делаю по аналогии с примерами, где динамически создавалась кнопка и туду же и там же вешался обработчик.
У метода OnClose тип почему-то Handler , а у моей процедуры - method.
То есть ошибка [dcc32 Error] ReportBuilder.dpr(51): E2009 Incompatible types: 'method pointer and regular procedure'.
Как их подружить?
Так же в данном коде
1.
procedure myClose(Sender: TObject; var Action: TCloseAction);
не видны обьекты
myDesigner и MyReport. Это тоже следствие того, что код в dpr прямо?
Что делать?
Заранее признателен за советы.
