Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Помогите плиз   Найти похожие ветки 

← →
Fellomena   (2002-01-09 13:31) [1]

New-> DLL,
затем New-> Form, на форме размещаешь всё что пожелаешь

library ModelF;

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,
Unit1 in "Unit1.pas" {Form1};

function ShowMyDialog(Msg: PChar): Boolean; stdcall;
begin
{Создаем экземпляр Form1 формы TForm1}
Form1 := TForm1.Create(Application);
{В Label1 выводим сообщение Msg}
Form1.Label1.Caption := StrPas(Msg);
{Возвращаем True если нажата OK (ModalResult = mrOk)}
Result := (Form1.ShowModal = mrOk);
Form1.Free;
end;

exports ShowMyDialog;

begin
end.

Ну а из главного :

...
implementation
function ShowMyDialog(Msg: PChar): Boolean; stdcall; external "project1.dll";
...
procedure TForm1.Button1Click(Sender: TObject);
begin
if ShowMyDialog(PChar("Work !!!"))= TRUE then
ShowMessage("TRUE !")
ELSE
ShowMessage("FALSE !");
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c