Bueno no puedo ejecutar la aplicasion por que este codigo me da error:
Código Delphi
[-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if synedit1.Modified = true then
begin
if messagebox(handle, 'Press Y to Exit ? [Y or N]', 'Select...', MB_YESNO)=IDYES then
messagebox (handle, 'YES', 'YEA', mb_iconinformation);
end else begin
messagebox (handle, 'NO', 'NO', mb_iconinformation);
end;
end else begin
close;
end;
Aver quien me ayuda :S