VPF::Как спрятать форму при запуске программы?

hawkins

Дата 1.12.2006, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 8.9.2003

Репутация: нет
Всего: нет

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

Romikgy

Дата 1.12.2006, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

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

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Poseidon

Дата 1.12.2006, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

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

)

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

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

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

hawkins

Дата 1.12.2006, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 8.9.2003

Репутация: нет
Всего: нет

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

Poseidon

Дата 1.12.2006, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(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);

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »