FormShow og Close

Kode eksempel?

Og se her http://delphi.about.com/od/formsdialogs/a/delphiformlife.htm
måske er det onActivate eventen du skal have fat i!

Personligt ville jeg foretrække at flytte det til FormShow
Jeg bruger gerne noget lig nedenstående:

procedure TfrmMain.FormShow(Sender: TObject);
begin
  if UniDAC.Validate(Settings.Database.Provider) = False then
    begin
      if ShowDBSetup(Self, True) = True then
        begin
          ForcedDown := True;
          Close;
        end;
    end
  else
    begin
      frmDBConn := TfrmDBConn.Create(Self);
      Settings.Load;
      Caption := ProgramInfo;
      User.DoInitialize;
      fMessageClock := TMessageClock.Create(Self, True);
      barStatus.DoubleBuffered := true;
      TabsSet := TStringList.Create;
      WindowState := wsMaximized;
      fMessageClock.Start;
      TabsSetFill;
      PostMessage(Handle, WM_RIBBONUPDATE, 0, 0);
      PostMessage(Handle, WM_STATUSUPDATE, 0, 0);
      tabHome.Active := True;
      TimerLogon.Enabled := True;
      SetFocus;
    end;
end;

Man kan IKKE lukke formen med en alm. close i onShow eventen !

Du skal sende en WM_CLOSE til din form, det kan du nemli godt få lov til i onShow

SendMessage(formHandle,WM_Close);


( Har ikke lige delphi kørende )

Det forstår jeg nu ikke. Jeg har ikke nogen problemer med at lukke med den viste kode.
Eneste detalje er at jeg i FormCloseQuery sætter CanClose := ForcedDown
Den metode har jeg brugte uden problemer i både 2009 og XE versionen af Delphi - jeg har dog ikke testet det i min nuværende XE3 (det burde jeg måske gøre)

hehe... jeg husker det fra før 2009 :-), der kunne man ikke slippe afsted med en close i din formshow.

God Jul :-)

Jeg bruger Delphi 7 (2002) og der virker det fint med Close i formshow.

ellers er der jo også application.terminate eller halt...

I koden til TCustomForm.close udfører den application.terminate hvis mainform, så den ville jeg foretrække, hvis det er hele programmet der skal lukkes

Hvis det ikke er hele programmet som skal lukkes så prøv
form2.release;

Hej,

1) Præcision:  Hvis jeg kalder en DLL fil og i DLL filen's onshow laver en "CLOSE;" så vil DLL filen IKKE lukke ned.

2) Application.Terminate kan jeg ikke bruge da den lukker hele applicationen ned og jeg kun ønsker at formen skal lukkes

3) Release; virker ikke - formen lukker godt nok men der opstår en eller anden fejl - jeg kan ikke få adgang til hovedformen hvorfra DLL filen blev kaldt

4) SendMessage(formHandle,WM_Close); kan jeg ikke få til at virke - der sker ingenting

Koden til DLL filen er:

Close kalder jeg i formens OnShow kode.

library DLLFile;

uses
  SysUtils,
  Classes,
  ActiveX,
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

var
  DllApplication2 : TApplication;
{$R *.res}

function DLLShow(ParentApplication:TApplication;ParentForm:TForm): integer; stdcall;
begin
  Application := ParentApplication;
  coinitialize(nil);
  Form1 := TForm1.Create(ParentForm);
  Form1.Showmodal;
  Result := 1;
  Form1.free;
end;

procedure DLLUnloadProc(Reason: Integer); register;
begin
  if Reason = DLL_PROCESS_DETACH then
    Application := DllApplication2;
end;

exports
  DLLShow;

begin
DllApplication2 := Application;
DLLProc := @DLLUnloadProc;
end.

Hej, under normale omstændigheder burde release eller close kunne bruges.
Forstår godt det ikke virker her, men vil alligevel lige afslutte min egen kommentar med, at i koden til release afsendes en meddelelse, og dermed meget tæt på martinlinds bud, hvilken jeg nok også ville foretrække (i situationer hvor WM_CLOSE virker...)

Jeg har ikke flere bud på dette, andet end at generelt set er det nok bedre hvis formen slet ikke bliver oprettet, og så at flytte koden helt ud af onshow.
Det kan gøres på flere måder, eksempelvis ved at oprette en funktion til at oprette formen med, eller lave en nedarvet klasse.

procedure createMyForm(...);
begin
if not shouldCreate then exit;
//create form here.
end;

problemet var at jeg lavdede:

result := 1;

Jeg SKULLE have lavet

result := Form1.ShowModal;

Borrisholt Guruen hjalp...

Jeg lukker...