Как зделать форму скрытой?

[}{oт@бь)ч]

Здраствуйте!
Пожалуйста подскажите как зделать чтобы при запуске файла
форма не вылетала!
Тоесть интересует как скрыть форму помогите плиз!

[Shouldercannon]

Project - View Source

program Project1;

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

{$R *.res}

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

[Mixasik]

Или же, во время выполнения программа можно вызвать SomeForm.Hide;
где SomeForm - имя класса вашей формы.

[}{oт@бь)ч]

Зделал по премеру но програма не работает!
Вот код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin

Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTP1.Host := 'xost';
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';
IdFTP1.Connect(true);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
Form1.Hide;

end;

end.

Project1

program Project1;

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

{$R *.res}

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

[Mixasik]

Form1.Hide;

- странно проверил, по нажааю кнопки вызвать метод - все работает. Также можно попробывать Form1.Visible := false;
Хотя может вы имеете ввиду не видимой в процессах?
Тогда об этом можно почитать в Delphi World

[}{oт@бь)ч]

Нет в процесах необязательно у меня програма!
И я хочу чтобы при запуске форма неоткрывалася!
И все!

[}{oт@бь)ч]

Вот зделал так ка вы сказали!
Код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
IdFTP1: TIdFTP;
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin

Application.ProcessMessages;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdFTP1.Host := 'xost';
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';
IdFTP1.Connect(true);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
Form1.Visible := false;
end;

end.

Project1

program Project1;

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

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

end.

Но при запуске файла выскакивает вот это!

После чего вылетает форма!

Вот такая ошибка но файл приходит на фтп хостинг!



А если делаю так

procedure TForm1.FormShow(Sender: TObject);
begin
IdFTP1.Put('c:\test.txt','test.txt' ,true);
end;

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

end.

То ошибку невыдает но и файл на фтп неприходит!

[Mixasik]

form1.Hide;

Поставь это в событие OnPaint формы.

[}{oт@бь)ч]

Все спасибо зделал!

[DeKot]

А Form1.Left > 1024 Вас не устроит? При необходимости по какой либо клавиши вернуть в видимую область экрана.