Delphi Application.showmainform:=false/true

[Bios666]

Witam all mam taki problem!

Poniewaz aby ukryc formularz uzylem procedury:
Application.showmainform:=false;

no oki wszystko pieknie ale teraz chcem aby po np.10s okno pokazala sie i co teraz?? probowalem:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Application.showmainform:=true;
end;

end.


ale nic nie dalo prosze o syzbka odpowiedz!!

 

[rafal]

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.Visible:=false;

Timer1.Enabled:=true;

Application.ShowMainForm:=false;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Interval:=10000;

Application.ShowMainForm:=true;

Form1.Visible:=true;

Timer1.Enabled:=false;

end;



end.

mi takie cos smiga :-]

 

[Kornik52]

Mu nie dziala bo on najpredziej tutaj:

program Project1;



uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1};



{$R *.res}



begin

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

  Application.showmainform:=false;

  Application.Run;

end.

dal application.ShowMainForm:=false;

 

[Bios666]

acha thx

za pomoc!!

PS gdzie sie klika pomógł

i jeszcze jedno wiecie moze jak wylaczyc krzyżyk do zamykania aplikacji? i jak zawiesic Windowsa NT?

 

[damian0170]

Ja bym to zrobił tak :

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=false;
Application.Run;
end.

a w timerze po prostu :

form1.show;

nie lepiej ?

 

[damian0170]

<div class='quotetop'>CYTAT("Bios666")</div>

acha thx

za pomoc!!

PS gdzie sie klika pomógł

i jeszcze jedno wiecie moze jak wylaczyc krzyżyk do zamykania aplikacji? i jak zawiesic Windowsa NT?[/b]

form1.BorderIcons:=form1.BorderIcons-[biSystemMenu]; lub ręczna zmiana w inspektorze

a co do zawieszenia :

uses ShellApi;

ShellExecute(Handle,'open','rundll32','krnl386.exe,exitkernel',nil,SW_SHOWNORMAL);
//lub
ShellExecute(Handle,'open','rundll32','user,disableoemlayer',nil,SW_SHOWNORMAL);

www.google.pl - czasami warto skorzystać :roll: