[NESTER]

Народ срочно нужна ваша помощь. Есть 2 независимые формы как сделать чтоб по на жатию на кнопку открывалась вторая форма Form2:= TForm2

[NieL]

PHP код:

form2: TForm2;
...
form2 := TForm2.Create;
form2.ShowModal; 


[NESTER]

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

PHP код:

form2: TForm2;
...
form2 := TForm2.Create;
form2.ShowModal; 


Спасибо, но теперь он ругается на строчку form2 := TForm2.Create;
Как обьявить TForm2 как клас.
Если при обьявлении Tform2 как класа где обьявляется клас TForm1 то программа тоже ругается

[жекаизжека]

сделай проще

Form2.ShowModal;

[NieL]

PHP код:

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; // здесь указывает свой unit с формой

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  form2: Tform2;
begin
  form2 := Tform2.Create(Self);
  form2.ShowModal;
end;

end. 


[cotseec]

по идее форма уже создана (если ничего не изменялось в файле проекта *.dpr и в опциях проекта, связанное с созданием формы), так что по событию OnClick на нужной кнопке просто

Код:

Form2.ShowModal; (модальное окно)
или
Form2.Show;(обычное окно)

[жекаизжека]

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

Народ срочно нужна ваша помощь. Есть 2 независимые формы как сделать чтоб по на жатию на кнопку открывалась вторая форма Form2:= TForm2

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;

думаю понятно )) хотя сам только неделю пытаюсь работать )

[Blackster]

procedure TForm1.button1Click(Sender: TObject);
begin
form2.show;
end;

[NESTER]

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

procedure TForm1.button1Click(Sender: TObject);
begin
form2.show;
end;

Вот после отработки этого скрипта возникает такая ошибка [Error] Unit1.pas(37): Incompatible types: 'TForm2' and 'Class reference' и такая вот [Error] Unit1.pas(30): Unsatisfied forward or external declaration: 'TForm2.Button1Click'

[cotseec]

должна быть создана форма в проекте(file->new->Form), объявление переменной Form2 идет во втором юните (создается вместе с Form2), это если вторая форма создается не в run-tume
кидаю пример

[NESTER]

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

должна быть создана форма в проекте(file->new->Form), объявление переменной Form2 идет во втором юните (создается вместе с Form2), это если вторая форма создается не в run-tume
кидаю пример

Спасибо все нормально получилось.
Но сейчас работаю с такой задачей на 1 форме есть 2 кнопки 1 кн. открывает 2 форму, а 2 кн закрывает программу.
Это я отработал, но создал на 2 форме кнопку которая закрывает рабочую программу и при открытии 2 формы возникает ошибка прикрепленная в архиве

[Qwed86]

Код покаж. А лучше прогу в архив и сюда кинь.
Форма1

Код:

uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.showmodal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

Форма2

Код:

uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.close;
end;

[cotseec]

не совсем понял (тупо не смог разглядеть словеса на картинке) про ошибку....
кидаю пример: на обеих формах две кнопки, одна закрывает главную форму (соответственно и приложение), другая на первой форме открывает вторую форму, на второй форме закрывает вторую форму
З.Ы. обрати внимание на секцию implementation во втором юните
может поможет

[cotseec]

хм, не тот архивчик
исправил

[NESTER]

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

хм, не тот архивчик
исправил

Спасибо все отлично