Всё до ужоса элементарно:
1.
procedure TMain_Form.N9Click(Sender: TObject);
begin
rdt_model_Form.ShowModal; - останавливается на этой строчки при ошибке
end;
Выполняем
Должно открыться:
Но не открывается выдаёт ошибку.
2.
unit rdt_model_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
Trdt_model_Form = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
rdt_model_Form: Trdt_model_Form;
implementation
{$R *.dfm}
end.
Ну что тут может быть.
Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста. |