Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Вниз

Подскажите пожалуйста! Код TForm2.Create(nil) вовсе не помещает создаваемую форму на панель задач! (он ее помещает на РАБОЧИЙ СТОЛ)   Найти похожие ветки 

← →
y-soft   (2002-03-05 11:38) [9]

Обещанный пример приложения без главной формы:

program SeparateForms;

uses
Windows,
Forms,
SUnit1 in "SUnit1.pas" {Form1},
SUnit2 in "SUnit2.pas" {Form2};

procedure ApplicationRun; //Замена Application.Run
begin
repeat
Application.HandleMessage
until Application.Terminated;
end;

{$R *.RES}

begin
Application.Initialize;
//Самостоятельно создаем формы
Form1 := TForm1.Create(Application);
Form2 := TForm2.Create(Application);
Form1.Update;
Form1.Show;
Form2.Update;
Form2.Show;
//Скрываем окно приложения
ShowWindow(Application.Handle,SW_HIDE);
//Запускаем цикл обработки сообщений
ApplicationRun;
end.

unit SUnit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
S : Longint;
begin
S := GetWindowLong(Handle, GWL_EXSTYLE);
S := S or WS_EX_APPWINDOW;
SetWindowLong(Handle, GWL_EXSTYLE, S);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Завершаем приложение после закрытия последней формы
if Screen.FormCount = 1 then
Application.Terminate;
Action := caFree;
end;

end.

unit SUnit2;

interface

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

type
TForm2 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;
var
Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
var
S : Longint;
begin
S := GetWindowLong(Handle, GWL_EXSTYLE);
S := S or WS_EX_APPWINDOW;
SetWindowLong(Handle, GWL_EXSTYLE, S);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Завершаем приложение после закрытия последней формы
if Screen.FormCount = 1 then
Application.Terminate;
Action := caFree;
end;

end.


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.005 c