Компоненты в Dll

[asmodey1]

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

Я нашёл предполагаемые неисправности.
Вот:
Button := TButton.Create(Form);
Button.Parent := [COLOR="rgb(139, 0, 0)"]Form[/COLOR];

Выделенно красным.

Вы значок "#" над окном, где вы вводите свое сообщение, видите ? Это для того, чтобы, как и положено на форуме, правильно оформить код.
А подчеркнутую букливицу "А" с треугольничком выбора видите ? Это для выбора цвета...

[Ganociy]

ошибку в BlitzBasic не выдаёт, но кнопку показывать не хочет ))

[Ganociy]

Блин, уже не знаю, что делать.

[veniside]

Начните с ответа на вопрос, который я задал вчера:

как может работать форма после вызова Form.Free?

[Ganociy]

Я эту команду убрал...

[veniside]

Т.е. нам надо было догадаться об этом?

Может тогда уже приведете весь свой новый код, чтобы мы не звали телепатов на помощь и не гадали, что ещё вы убрали или добавили.

[Ganociy]

library BlitzGui;

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

var

Form : TForm;
Button:TButton;
{$R *.res}

function ShowMes(caption:PChar):integer;stdc all;export
Begin
result:=1;
If result=1 then
Begin
ShowMessage(caption);
end;
end;


function CreateForm(caption:PChar; name:PChar; width:integer; height:integer ) : Integer; stdcall;
begin
Form := TForm.Create(Application);
Form.Caption:=caption;
Form.Name:=name;
Form.Width:= width;
Form.Height:=height;
Result := Form.ShowModal;
end;

Function CreateButton:integer;stdcall;export ;
begin
Button := TButton.Create(Form);
Button.Caption := 'OK';
Button.Left := 100;
Button.Top := 100;
Button.Width := 40;
Button.Parent := Form;
result:=1;
end;

exports
ShowMes,CreateForm,CreateButton;

begin
end.

Вот.

[Пепел Феникса]

хм, основного цикла сообщений скорее всего нет.(ни в длл, ни вне нее)
и как оно должно работать?

[Ganociy]

сейчас скину архив...

[Ganociy]

Вобщем тип действия таков:
В BlitzBasic вводишь команды CreateForm(параметры)
СcreateButton()
И на форме создаётся кнопка.

Значить входите в папку Blitz3D, запускаете Blitz3D.exe . Создаёте новый файл: Дальше вводите код:
CreateForm("Form1","Form1",500,500)
СcreateButton("Button1","Button1",4 0,40,100,100)

и запускаете.