Как грамотно засунуть форму в dll? [D6, Win95/98, WinME, NT4, Win2k, WinXP]
@Ujin © (2002-10-30 12:17:00)
Не используя C++ (я в нем как свинья в апельсинах) надо
запихнуть форму в dll... (прошу наставлений)
immortal (2002-10-30 13:27:00) [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 запомнить дескриптор этой формы.
Наверх 
ЧАТ |
Орешник |
|
