Form2.showmodal

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Form2.showmodal

Сообщение MEtis » 29.08.2010 20:06:21

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

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

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

заранее спасибо.
MEtis
незнакомец
 
Сообщения: 2
Зарегистрирован: 29.08.2010 20:00:33

Re: Form2.showmodal

Сообщение Alexx2000 » 29.08.2010 20:19:39

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

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

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

Необходимо прописать в uses модуля первой формы, модуль второй формы.
MEtis писал(а):а в лазарус нету подсказок всплывающих? как в делфи ,чтобы выскакивало и предлагало дописать?

Есть
Аватара пользователя
Alexx2000
постоялец
 
Сообщения: 487
Зарегистрирован: 25.10.2006 00:22:07
Откуда: Мытищи

Re: Form2.showmodal

Сообщение MEtis » 29.08.2010 20:37:23

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;
MEtis
незнакомец
 
Сообщения: 2
Зарегистрирован: 29.08.2010 20:00:33

Re: Form2.showmodal

Сообщение rodsd2211 » 30.10.2017 19:12:22

Здравствуйте! Не подскажите я хочу связать 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]
rodsd2211
незнакомец
 
Сообщения: 1
Зарегистрирован: 30.10.2017 19:02:39


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex [Bot] и гости: 27

Рейтинг@Mail.ru