Some sort of focus problem

[Brad Campbell]

gerard patel wrote:
> 
> On Thu, 13 Sep 2001 16:00:17 +0800, Brad Campbell <brad at seme.com.au>
> wrote:
> >supply source if required. (It's only about 10 lines just to demonstrate
> >the problem).
> 
> Show us the source :-)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    SaveDialog1: TSaveDialog;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If MessageDlg('Map Altered, Do you wish to save ?',
mtWarning,[mbYes,mbNo],0) = mrYes then SaveDialog1.Execute;
 CanClose := True;
end;

end.

You asked for it :p)

Compiled with Borland Delphi 4 Professional.
Tested with the latest wine cvs, and has been a problem for months..


-- 
Brad....
                   /"\
Save the Forests   \ /     ASCII RIBBON CAMPAIGN
Burn a Greenie.     X      AGAINST HTML MAIL
                   / \