Создание формы в консольном приложении

← →
Varg (2004-01-19 16:06) [0]

Добрый день! Подскажите, господа, Как вызвать форму при работе консольного приложения (при запуске никакой формы не отображается), конкретно:
1. Как вызвать диалог выбора файла (виндовый)?
2. Как вызвать собственное окно ?

← →
Varg (2004-01-19 16:08) [1]

Извиняюсь за повтор - коннект плохой.

← →
ssk (2004-01-19 16:08) [2]

в консольном приложении виндовых окон не бывает. по-моему так.

← →
YuRock (2004-01-19 16:11) [3]

1.
var OD: TOpenDialog; begin ... OD := TOpenDialog.Create(nil); if OD.Execute then ... end;

2.
var Form1: TForm1; begin ... Form1 := TForm1.Create(Application); Form1.Show; ... end;

← →
Digitman (2004-01-19 16:11) [4]

если VCL таки используется, то в чем прелесть изначальной организации приложения как консольного ?

← →
Varg (2004-01-19 16:15) [5]

2 YuRock
Спасибо за помощь!

2 Digitman
По началу необходимости в VCL не было, теперь, возможно буду переделывать.

← →
PVOzerski (2004-01-19 16:16) [6]

{$apptype console}
program Project1;

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

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=false;
Application.Run;
end.

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
readln;
Show;
end;

end.

← →
Digitman (2004-01-19 16:17) [7]

> буду переделывать

давно пора

Создание формы в консольном приложении Найти похожие ветки