Текущий архив: 2002.12.12;
Скачать: CL | DM;

Вниз

Как грамотно засунуть форму в dll?   Найти похожие ветки 

← →
@Ujin ©   (2002-10-30 12:17) [0]

Не используя C++ (я в нем как свинья в апельсинах) надо запихнуть форму в dll... (прошу наставлений)

---

← →
immortal ©   (2002-10-30 13:27) [1]


function ShowMyDialog(Msg: PChar): Boolean; stdcall;

...
exports ShowMyDialog;

function ShowMyDialog(Msg: PChar): Boolean;
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;

Если же нужно разместить в DLL немодальную форму, то необходимо сделать две функции - открытия и закрытия формы. При этом нужно заставить DLL запомнить дескриптор этой формы.

---

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

Текущий архив: 2002.12.12;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.017 c