Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Помогите с исходником  (Прочитано 3365 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Qwert+
Гость
« : 02-12-2008 12:57 » 

помогите с исходником не могу полностью скрыть форму
Код:
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);

end;

end.

пробовал:

ShowWindow (Application.handle, SW_HIDE);

showwindow(Application.handle, SW_HIDE);
showwindow(Frorm1.handle, SW_HIDE);

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:=AppMinimize;
  Application.OnRestore:=AppMinimize;
  Application.Minimize;
  AppMinimize(@Self);
end;

procedure TMainForm.AppMinimize(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;


ни че не получается
помогите пожалуйста срочно надо
вот если че ася 436-660-496
« Последнее редактирование: 02-12-2008 15:49 от zubr » Записан
zubr
Модератор

by
Offline Offline
Пол: Мужской

« Ответ #1 : 02-12-2008 15:50 » 

ShowWindow(Application.Handle, SW_HIDE); в OnPaint
Записан
Qwert+
Гость
« Ответ #2 : 02-12-2008 16:46 » 

 Ага да пасибки я сам уже до этого догнал)
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines