Сворачивание формы.

[Diogo]

Есть 2 формы - Form1 и Form2.

При запуске программы запускается Form1, в которой пользователь выбирает свой профиль и после этого вызывается Form2, которая и является "основной" формой программы, всю работу с программой пользователь производит именно в ней.

Теперь о проблеме: При попытке свернуть Form2 она сворачивается как MDIChild (или по другому как в Word-e документ) в левый нижний угол экрана. Как заставить ее сворачиватся в панель задач? При нажатии на программу в панели задач она нормально сворачивается, при попытке свернуть ее щелчком по иконке "Свернуть" она сворачивается в левый угол экрана?
Пробовал вызывать окна и при помощи ShowModal и Show (скрывая другую форму) - результат одинаковый? Я понимаю, что Form1 является "главной" формой проекта, но как обойти можно данную проблему?

[UnD)eaD)Snake]

Child нельзя сворачивать в панель задач. Сделай form2 главной, при form2.create напиши
begin
form1.show;
form2.alphablendvalue:=0;
end;
Когда пользователь выберет профиль:
begin
form2.alphablendvalue:=255;
form1.close;
end;

[Andr]

AlphaBlend надо поставить True

[mutabor]

Diogo, еще как вариант не закрывай форму пароль, а скрой (Hide) или сделай невидимой (Visible:=false). Надо будет завершить приложение вызови Form1.Close, например при закрытии другой формы.

P.S. А кто-то знает как сделать программу с двумя независимыми окнами, но процесс чтоб был один?

[Квэнди]

alphablend.... опять... да пожалейте вы пользователя... вы в курсе сколько ресурсов необходимо для этого ?
ответ...

type
TForm = class(TForm)
{...}
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

implementation

{...}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;

[Diogo]

Сообщение от mutabor

Diogo, еще как вариант не закрывай форму пароль, а скрой (Hide) или сделай невидимой (Visible:=false). Надо будет завершить приложение вызови Form1.Close, например при закрытии другой формы.

Ну я так и пробовал, после выбора профиля в Форм1, я ее делал невидимой и вызывл Форм2. Но и в такой ситуации Форм2 нормально не сворачивается..


Сейчас попробую предложенные варианты

[mutabor]

Квэнди а не подскажешь для чего эта строка
Params.WndParent := GetDesktopWindow;
я пробовал без нее, тот же результат.

p.s. не надо, уже разобрался

[Diogo]

Сообщение от Квэнди

alphablend.... опять... да пожалейте вы пользователя... вы в курсе сколько ресурсов необходимо для этого ?
ответ...

type
TForm = class(TForm)
{...}
protected
procedure CreateParams(var Params: TCreateParams); override;
end;

implementation

{...}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;

Сделал как советовали. Вот что получилось...

TfrmMain = class(TForm)
pc: TPageControl;
tsPers: TTabSheet;
tsLogs: TTabSheet;
{...}
procedure DeleteDublicateLogs;
procedure btnAddClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnAddLogClick(Sender: TObject);
procedure LogsDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
{...}

protected
procedure CreateParams(var Params: TCreateParams); override;
private
{ Private declarations }
public

{ Public declarations }
end;

{...}

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TfrmMain.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
{... Дальше очень много строк программы...}

Результат получается следующий:
После запуска Form1 и нажатия на кнопочку загрузки профиля эта форма себя скрывает Form1.Hide и вызывает frmMain.ShowModal;
После отображения на экране frmMain в панели задач появляется 2 кнопки программы. Клики на первую не приводят ни к чему, а второй нормально сворачивается/разворачивается.. При нажатии на кнопочку свернуть в заголовке окна, форма нормально сворачивается нормально, как я и хотел, но как убрать 2-е окошко?

[Diogo]

Сообщение от mutabor

p.s. не надо, уже разобрался

Наверное один я криворукий?

[Master-Skull]

Держи сёрс. Главная фиха там в том что мы до запуска приложения вызываем показ второй формы. Загляни в Project -> View Source и всё поймёшь