asked on

How to auto close the form after ok button is pressed.

Delphi
i use form1 to insert data. When i click ok a message box prompted to tell me my data has been inserted .
How can i auto close the form1 after i click ok on the message box.

ASKER CERTIFIED SOLUTION

Geert G

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Lukasz Zielinski

procedure TForm1.Button6Click(Sender: TObject);
begin
ShowMessage('message text');
Close;
end;

or if it is modalform:

procedure TForm1.Button6Click(Sender: TObject);
begin
ShowMessage('message text');
ModalResult := mrOk;
end;

ziolko.

Lukasz Zielinski

damn geert you were faster... look at Q ids:)

ziolko.

Geert G

ziolko
hey, you had to type 2 solutions :)

firekiller15

ASKER

If i want to use messageDlg how?

SOLUTION

Lukasz Zielinski

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Geert G

ziolko >>
you could even mix it

case MessageDlg('Do you like the inserted data ?', mtConfirmation, [mbYes, mbNo], 0) of
  mrYes: case MessageDlg('Really ?', mtConfirmation, [mbYes, mbNo], 0) of
    mrYes: ; // Ok
    mrNo: ShowMessage('Too bad, the data was inserted anyway !');
  end;
  mrNo: ShowMessage('Alter it then ... ');
end;

Open in new window

Lukasz Zielinski

yeah I know I can mix it even with:
MessageBox(Handle, 'Message', 'Message caption', MB_OK or MB_ICONINFORMATION);

but as I understand firekiller15 just wanted use MessageDlg instead of ShowMessage

ziolko.

BdLm

I think if we are talking about MDI Forms,
that is still missing

procedure MyMDIForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;

Geert G

ah, but didn't we forget this too then ?

PostMessage(Handle, WM_CLOSE, 0, 0);

Open in new window