Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Форма [D7, XP]

Страницы: < 1 2
Fleg © (2007-07-19 15:54:00)
Приветствую!
Проблема с динам. созданием формы.
Нужно: форма из одного модуля по нажатию кнопки создавала и показывала другую форму, принадлежащую второму модулю
желательно указать исходный код.
Спасибо.

THandle (2007-07-19 17:57:00) [21]

> Fleg © (19.07.07 17:55) [14]
> > > > THandle У тебя этот код работает???

Ты думаешь здравомыслящий человек будет давать непроверенный код???

THandle (2007-07-19 17:56:00) [22]
Project -> Options -> Form2 > Available Forms

Fleg (2007-07-19 17:55:00) [23]

> > > THandle

У тебя этот код работает???

Fleg (2007-07-19 17:53:00) [24]

> > THandle

Не работает=(

THandle (2007-07-19 17:52:00) [25]
Можно

Fleg (2007-07-19 17:51:00) [26]

> THandle

Uses unit2 нужно подключать после implementation?

THandle (2007-07-19 17:50:00) [27]
unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(Self);
Form2.ShowModal;//Show;
end;

end.

-----------------------------------
----------------------------------
---------------------------------

unit Unit2;

interface

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

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

end.

Fleg (2007-07-19 17:47:00) [28]

> Имхо, сдается мне что Вы чрезвычайно нуждаетесь в покупке
> "букваря" или хотябы сходить в библиотеку (интернет)

есть немного...

Но все же что за ресурс?

iXT (2007-07-19 17:46:00) [29]
Имхо, сдается мне что Вы чрезвычайно нуждаетесь в покупке "букваря" или хотябы сходить в библиотеку (интернет)

Fleg (2007-07-19 17:46:00) [30]
В uses я включил...это я знаю...

> Не всё так просто. Ресурс - где?

Можно поподробнее, а лучше с кодом.

THandle (2007-07-19 17:43:00) [31]
uses unit2; ?

Ega23 (2007-07-19 17:42:00) [32]

> type
> TForm2 = class(TForm)
> end;
> var
> Form2: TForm2;

Не всё так просто. Ресурс - где?

Fleg (2007-07-19 17:38:00) [33]

> Form2:=TForm2.Create(self)

Если во втором модуле указать:
type
TForm2 = class(TForm)
end;
var
Form2: TForm2;
А в первом(в котором форма создается автоматически) по нажатию кнопки задать:
Form2:=TForm2.Create(self)
то возникает ошибка 'resourse tform2 not found'
как же правильно создать, а главное вывести окно?
help =(

Stanislav (2007-07-19 16:08:00) [34]
Form2:=TForm2.Create(self)

Ega23 (2007-07-19 16:00:00) [35]
Что непонятно?

Amoeba (2007-07-19 15:57:00) [36]
И в чем сложность? Задача ведь на уровне букваря.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »