Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Минимизация окна приложения на старте 
:(
    Опции темы
MacTep
Дата 15.6.2006, 08:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4
Как сделать, чтобы при старте программы, появилась главная форма программы, а потом сразу взяла и свернулась? 


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Rennigth
Дата 15.6.2006, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
хм, ну самое банальное что приходит в голову это на OnShow формы поставить задержку после которой минимизируй ее. Или я не правильно понял вопрос? 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
MacTep
Дата 15.6.2006, 09:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4
Да вот я тоже так делал. Но не работает. И что значит "поставить задержку"? Можно пример обработчика события OnShow? 


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Sunr1se
Дата 15.6.2006, 10:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 6
Всего: 13
Лучше уж таймер кинуть, интервал установить на 1, и на событие OnTimer прописать:
Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Hide;
end;



Тебе же не скрывать, а сворачивать... Тогда там же впиши
Код

  Form1.WindowState := wsMinimized;
 

Это сообщение отредактировал(а) Sunr1se - 15.6.2006, 10:32
--------------------
IRC-канал Винграда 
PM MAIL ICQ   Вверх
Romikgy
Дата 15.6.2006, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 26
Всего: 146
В формкреате 
Application.Minimize; 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
MacTep
Дата 15.6.2006, 10:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4
Romikgy, так точно работать не будет. Пробовал... 


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
Romikgy
Дата 15.6.2006, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 26
Всего: 146
MacTep, а че у меня так работает
Код

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Minimize;
end;
 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Rennigth
Дата 15.6.2006, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
Romikgy, я как понял ему нужно чтобы окно сначала показалось а потом свернулось. в твоем случае окно сразу будет свернутым. 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Sunr1se
Дата 15.6.2006, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 6
Всего: 13
Тогда делать, как я предлагал, с помощью таймера... В interval ставить время, в течение которого будет видно форму, а в обработчике события OnTimer прописать
Код

Form1.WindowState := wsMinimized;

или
Код

Application.Minimize;
 
--------------------
IRC-канал Винграда 
PM MAIL ICQ   Вверх
Rennigth
Дата 15.6.2006, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
так симпатичней :
Код

unit Unit1;

interface

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

type
  TPauseThread = class(TThread)
  protected
    FDelay: Cardinal;
    procedure Execute; override;
  public
    constructor Create(Delay: Cardinal); reintroduce; virtual;
  end;

  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FPauseThread: TPauseThread;
    procedure OnPTTerminate(ASender: TObject);
  end;

var
  Form1: TForm1;
  bTPSuspended: Boolean;

implementation

{$R *.dfm}

{ TPauseThread }

constructor TPauseThread.Create(Delay: Cardinal);
begin
  inherited Create(True);
  FreeOnTerminate := True;
  FDelay := Delay;
end;

procedure TPauseThread.Execute;
begin
  bTPSuspended := False;
  WaitForSingleObject(Handle, FDelay);
  bTPSuspended := True;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  FPauseThread := TPauseThread.Create(500);
  FPauseThread.OnTerminate := OnPTTerminate;
  FPauseThread.Resume;
end;

procedure TForm1.OnPTTerminate(ASender: TObject);
begin
  Application.Minimize;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not bTPSuspended then
    WaitForSingleObject(FPauseThread.Handle, INFINITE);
end;

initialization
  bTPSuspended := True;

end.

)  


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Romikgy
Дата 15.6.2006, 11:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 26
Всего: 146
Rennigth, имхо для такой простой задачи, лучше уж воспользоваться таймером , чем городить отдельный поток!
И чем так симпатичней? smile 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
z-END
Дата 15.6.2006, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


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

Репутация: 11
Всего: 102
Код

procedure TForm1.SimpleMinimize (Sender: TObject);
begin
 Application.Minimize;
FreeAndNil(Sender);
end;
procedure TForm1.FormCreate (sender: TObject);
var Minimize:TTimer;
begin
Minimize:=TTimer.Create;
Minimize.OnTimer:=SimpleMinimize;
Minimize.Interval:=1000;
Minimize.Enabled:=True;
end;

можно как-нить такsmile 


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
Rennigth
Дата 15.6.2006, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
Romikgy, ну не люблю я таймеры  smile  


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Romikgy
Дата 15.6.2006, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 26
Всего: 146
Rennigth, а sleep / delay

Добавлено @ 11:58 
?
ps забыл  smile  


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Rennigth
Дата 15.6.2006, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
Цитата(Romikgy @  15.6.2006,  11:57 Найти цитируемый пост)
Rennigth, а sleep / delay

Добавлено @ 11:58 
?
ps забыл     

имеешь ввиду Sleep + ProcessMessages?
Тож не очень, MainThread еле ползет, в часных случаях мона конечно...  smile  


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0873 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.