Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как спрятать форму при запуске программы?

Автор: hawkins 1.12.2006, 12:55

Всем привет! Помогите с таким вопросом:
Как спрятать форму при запуске программы?
Программа имеет иконку в системном трее. Если между Application.Initialize и Application.CreateForm вызвать Application.Showmainform:=false
окно при запуске не видно, но если после показать его, то не видно ни одного визуального компонента, появляется чистое окно.
При запуске у окна Visible=false;

Автор: Romikgy 1.12.2006, 13:12

repaint на форму мож поможет

Автор: Poseidon 1.12.2006, 14:14

Код


program Project1;

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

{$R *.res}

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

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer; // по таймеру будем показывать окно
    Edit1: TEdit; // для наглядности
    Label1: TLabel; // для наглядности
    Button1: TButton; // для наглядности
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:= 3000; // через 3 секунды покажем окно
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Visible:= True; // покажем окно
end;

end.

Все работает, смотри у себя, что намудрил.

Автор: Sunvas 1.12.2006, 16:27

Цитата(hawkins @ 1.12.2006, 12:55

)

Программа имеет иконку в системном трее. Если между Application.Initialize и Application.CreateForm вызвать Application.Showmainform:=false

А напиши-ка Application.Showmainform:=false в онкреате формы.

Автор: hawkins 1.12.2006, 17:07

Всем спасибо! Вопрос снят.
Для показа окна раньше вызывал ShowWindow(Form1.Handle, SW_SHOWNORMAL);
сейчас поставил Form1.Visible:=true, контролы теперь видны;

Автор: Poseidon 1.12.2006, 17:52

Цитата(hawkins @ 1.12.2006, 17:07

)

Для показа окна раньше вызывал ShowWindow(Form1.Handle, SW_SHOWNORMAL);
сейчас поставил Form1.Visible:=true, контролы теперь видны;

Гык. Ну дак правильно. Ранше (ShowWindow(Form1.Handle, SW_SHOWNORMAL);
) ты говорил только одному обьекту - форме: "Покажись". А теперь (Form1.Visible:=true) ты говоришь "Покажись" форме, как родителю всего, что на ней лежит.

Другими словами, и первый твой способ прокатил бы, если бы ты вызвал ShowWindow для всех контролов на форме. Что-то вроди ShowWindow(Button1.Handle, SW_SHOWNORMAL);