Проблема с переходом на 2 форму

[bogdanzykov]

Я новичек в делпхи,я хотел сделать кнопку, и при нажатии кнопки, программа перебрасывала на втроую форму, создал кнопку в вел туда form2:show; и вылазит постоянно это при нажатии кнопки с переходом на 2 форму

[Stilet]

Проект в студию.

[bogdanzykov]

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

Проект в студию.

исходник?)))))

[WinCoder]

Project -> View Source. Смотрим блок

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1); // создание первой формы
  Application.CreateForm(TForm2, Form2); // создание второй формы
  Application.Run;
end.

Скорее всего среда по какой-то причине не создала вторую указанную мной строку. Прописываем её по аналогии.

[bogdanzykov]

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

Project -> View Source. Смотрим блок

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1); // создание первой формы
  Application.CreateForm(TForm2, Form2); // создание второй формы
  Application.Run;
end.

Скорее всего среда по какой-то причине не создала вторую указанную мной строку. Прописываем её по аналогии.

А смогете как описать подробно,как при клике можно перебросится на 2 форму,тоесть 1 форма закрывется а 2 открывается,Может я не так сделал

[kropotkina-alice]

Форму №1 закрыть нельзя, её можно скрыть - метод

Form1.Hide;

А вот подробно:

Form2.Show;
Form1.Hide;

[Stilet]

исходник?)))))

То, где можно посмотреть код модулей форм и код самого главного файла проекта.

[Slym]

как мне видится на скрине проблема кроется в неких dll...
либо Форма в библиотеку запихана либо опять строки передаются не правильно...

[bogdanzykov]

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Button3: TButton;
Label4: TLabel;
Label5: TLabel;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;
const
lib='MyDll';


var
Form1: TForm;
Form2: TForm;


function str1:ShortString;stdcall external lib;
function str2:ShortString;stdcall external lib;

implementation

{$R *.dfm}


function calc(a,b, index:integer): integer;external 'dll.dll';




procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(str1);



end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(str2);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
label4.Caption:=inttostr (calc(strtoint(edit1.Text),strtoint (edit2.Text),combobox1.ItemIndex));
end;
procedure TForm1.Button4Click(Sender: TObject);
begin

FORM2.Show;

end;

end.

[Slym]

var
Form1: TForm;
Form2: TForm;

ты в этом уверен?
к тому же тут нет создания Form2