Form2.showmodal

[MEtis]

пытаюсь из первой формы вызвать вторую таким вот кодом
var
f:integer;
begin
f:=Form2.ShowModal;
end.

unit1.pas(46,11) Error: Identifier not found "Form2"

хотя форма создана.
ps
а в лазарус нету подсказок всплывающих? как в делфи ,чтобы выскакивало и предлагало дописать?

заранее спасибо.

[Alexx2000]

пытаюсь из первой формы вызвать вторую таким вот кодом
var
f:integer;
begin
f:=Form2.ShowModal;
end.

unit1.pas(46,11) Error: Identifier not found "Form2"

хотя форма создана.

Необходимо прописать в uses модуля первой формы, модуль второй формы.

а в лазарус нету подсказок всплывающих? как в делфи ,чтобы выскакивало и предлагало дописать?

Есть

[MEtis]

uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls,Form2;
я правельно понял? если да то -> unit1.pas(9,12) Fatal: Can't find unit Form2 used by Unit1

форма 2 создана кнопкой "Создать форму".


Извеняюсь,ступил.
всё получилось.

надо было сделать вот так->
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls,Unit2;

[rodsd2211]

Здравствуйте! Не подскажите я хочу связать 2 формы чтобы при нажатии кнопки появлялась другая форма
вот мой код:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms,Unit2 in 'Unit2.pas' {Form2}, Controls, Dialogs, StdCtrls;







type

{ TForm1 }


TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }

end;


var
Form1: TForm1;
Form2 : TForm2;
f:integer;

implementation


{$R *.lfm}

{ TForm1 }
{Form2}
{ begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
}
procedure TForm1.FormCreate(Sender: TObject);

begin

end;

procedure TForm1.Button1Click(Sender: TObject);


begin


f:=Form2.ShowModal();
//Form2.ShowModal();



end;



end.
Ругается на Show иShowModal, без uses
Classes, SysUtils, FileUtil, Forms,Unit2 in 'Unit2.pas' {Form2}, Controls, Dialogs, StdCtrls; кнопка не реагирует
[img]file:///C:/Documents%20and%20Settings/Admin/Рабочий%20стол/Screenshot_1.png[/img]