
05.08.2009, 13:35
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,088
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
О, Господи!!! Естественно, компилятор дает тебе ошибки. Кто же пишет реализацию метода в описании класса? Это тебе не С++ и inline-методами... Поменяй вот так:
Код:
unit uMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uchild;
type
TfrMain = class(TForm)
private
{ Private declarations }
procedure CreateChildForm(const childName : string);
public
{ Public declarations }
end;
var
frMain: TfrMain;
implementation
{$R *.dfm}
procedure TfrMain.CreateChildForm(const childName : string);
var
Child: TfrChild;
begin
Child := TfrChild.Create(Application);
Child.Caption := childName;
end;
end.
|