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

[Ganociy]

Добрый день (или) форумчане! Вот такой вопрос: Пишу сейчас библиотеку для другого языка программирования, в которой будут содержаться многие визуальные компоненты Delphi, как написать процедуру (или функцию) для создания кнопки?

Буду очень признателен.

P.S. Библиотеки пишу первый раз, с основной архитектурой знаком. Какой язык лучше не спрашивайте. Скажу одно визуальную оболочку он не имеет

[veniside]

ActiveX .

[Ganociy]

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

ActiveX .

В смысле?

library BlitzGui;

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

{$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 ;visible:integer ) : Integer; stdcall;
var
Form : TForm;
begin
Form := TForm.Create(Application);
Form.Caption:=caption;
Form.Name:=name;
Form.Width:= width;
Form.Height:=height;
If visible=1 then
Begin
Form.Visible:=True
end
else Begin
Form.Visible:=False;
end;
Result := Form.ShowModal;
Form.Free;
end;

exports
ShowMes,CreateForm;

begin
end.

Вот собственно зачаток кода. Как через функцию создать?

[veniside]

> для создания кнопки

кнопка сама по себе не живет, напишите толком, где вы хотите, чтобы она появилась.

[Ganociy]

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

> для создания кнопки

кнопка сама по себе не живет, напишите толком, где вы хотите, чтобы она появилась.

Ага. Хорошо...

Есть язык программирования, называемый BlitzBasic (Blitz3D). Визуальное программирование в нём отсутствует. Только скриптинг. Мне понадобились визуальные компоненты, для работы, такие как: форма, кнопка, надписи и т. п. . Существуют сторонние библиотеки для этого скриптового языка, но они меня не устраивают. Вот я решил сам для себя написать библиотеку, которая бы содержал все те визуальные компоненты, которые мне нужны.
А, собственно, размещаться все виз. компоненты должны на форме. Вот мне нужен, хотя бы один, пример создания компонента, чтобы дальше разобраться.

[Ganociy]

Function CreateButton:integer;stdcall;export ;
var
but:TButton;
begin
but:=TButton.Create(application);
but.Parent:=Form;
result:=but.ModalResult;

end;

Вот - написал функцию, но что-то не работает.

[veniside]

Ничего не понял, ну ладно, не важно )

Ну вот форму вы создали, так? Через CreateForm(). Там надо переделать из модальной в обычную и хранить указатель на неё, ну это мелочи.
Теперь на неё можно вешать любые контролы. Ту же кнопку:

  Button := TButton.Create(Form);
  Button.Caption := 'OK';
  Button.Left := 100;
  Button.Top := 100;
  Button.Width := 40;
  //
  Button.Parent := Form;

Можно извращнуться, и добавить в ДЛЛ процедуру типа CreateControl(CType: Integer; Left, Top: Integer); и внутри там case по CType, создавать кнопки, лейбыл и т.д.

Дальше, надо подумать, как сделать обратные вызовы (callback), чтобы при нажатии на кнопку, например, вызывалась какая-то процедура на BlitzBasic. Это уже от возможностей самого BlitzBasic зависит.

[Ganociy]

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

Ничего не понял, ну ладно, не важно )

Ну вот форму вы создали, так? Через CreateForm(). Там надо переделать из модальной в обычную и хранить указатель на неё, ну это мелочи.
Теперь на неё можно вешать любые контролы. Ту же кнопку:

  Button := TButton.Create(Form);
  Button.Caption := 'OK';
  Button.Left := 100;
  Button.Top := 100;
  Button.Width := 40;
  //
  Button.Parent := Form;

Можно извращнуться, и добавить в ДЛЛ процедуру типа CreateControl(CType: Integer; Left, Top: Integer); и внутри там case по CType, создавать кнопки, лейбыл и т.д.

Дальше, надо подумать, как сделать обратные вызовы (callback), чтобы при нажатии на кнопку, например, вызывалась какая-то процедура на BlitzBasic. Это уже от возможностей самого BlitzBasic зависит.

Не знаю, когда в процедуру создания формы прописываю ваш код, то в BlitzBasic' е, отображает кнопку на форме, когда отдельно процедуру делаю, то нет. Вот код:

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;

Procedure CreateButton();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;

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;
Form.Free;
end;



exports
ShowMes,CreateForm,CreateButton;

begin
end.

[Ganociy]

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

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

[veniside]

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