Скачать: CL | DM;

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

← →
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]

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


давно пора

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c