а че у меня не делает?
Добавлено через 1 минуту
delphi Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
delphi Код:
unit IMPORT_Unit1;
interface
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
Unit1,
PaxCompiler,
PaxRegister;
procedure RegisterIMPORT_Unit1;
implementation
procedure RegisterIMPORT_Unit1;
var G, H: Integer;
begin
H := RegisterNamespace(0, 'Unit1');
// Begin of class TForm1
G := RegisterClassType(H, TForm1);
RegisterHeader(G,
'constructor Create(AOwner: TComponent); virtual;',
@TForm1.Create);
// End of class TForm1
RegisterVariable(H, 'Form1: TForm1;',@Form1);
end;
initialization
RegisterIMPORT_Unit1;
end.
баттон где?
Добавлено через 3 часа 35 минут
ну блин, че за фигня, подскажите или я уже пошёл в проперти переделывать эту хрень)