Скачать: CL | DM;

панель задач и формы в Dll   Найти похожие ветки 

← →
Koala ©   (2004-10-27 18:39) [0]

Как сделать, что бы при вызове формы из Dll она не отображалась в панеле задач.
за ранее спасибо

---

← →
Ega23 ©   (2004-10-27 18:46) [1]

Экземпляр TApplication твоей DLL приравняй Appication"у твоей программы.
Например.

---

← →
Koala ©   (2004-10-27 18:52) [2]

Ega23 ©   (27.10.04 18:46) [1]
а примерчик можно...? плз...

---

← →
Ega23 ©   (2004-10-27 19:01) [3]

Грубо говоря, если у тебя есть форма в ДЛЛ, то у неё есть свой объект TApplication. У вызывающей эту форму программы этот экземпляр, естественно, другой. Поэтому:

DLL:

ibrary PhotoSource;
uses
 Windows,
 Messages,
 SysUtils,
 Classes,
 Graphics,
 Controls,
 Forms,
 Dialogs,
 uPreviewCard in "uPreviewCard.pas" {FPreviewCard},
 uPreviewPhoto in "uPreviewPhoto.pas" {FPreviewPhoto},
 MultiTWAIN in "MultiTWAIN.pas",
 uTTPL in "uTTPL.pas",
 uTTIFF in "uTTIFF.pas",
 uTIFFConstants in "uTIFFConstants.pas",
 uTools in "uTools.pas",
 uDialogBox in "uDialogBox.pas" {FDialogBox},

{$IFNDEF OLYMPUS}
 uEGLib in "..\..\CommonUnits\uEGLib.pas";
{$ELSE}
 uEGLib in "..\..\CommonUnits\uEGLib.pas",
 TakePicDlg in "..\OLYMPUS-USB\TakePicDlg.pas" {TakePictureDlg},
 CamSetDlg in "..\OLYMPUS-USB\CamSetDlg.pas" {CameraSettingsDlg},
 CamShared in "..\OLYMPUS-USB\CamShared.pas",
 Memory in "..\OLYMPUS-USB\Memory.pas",
 RyeCommon in "..\OLYMPUS-USB\RyeCommon.pas",
 WaitDlg in "..\OLYMPUS-USB\WaitDlg.pas" {WaitDlg};
{$ENDIF}  

{$R *.RES}

//*************************************************************************************

function GetPhoto(Dev:Integer;H:HWND):Integer; StdCall;
begin
Result:=uPreviewPhoto.GetPhoto(Dev,H);
end;

//*************************************************************************************

exports
GetPhoto       name    "GetPhoto",
PrintCard      name    "PrintCard";

begin
end.

unit uPreviewPhoto

function GetPhoto(Dev:Integer;AppHandle:THandle):Integer;
var
Rct:TRect;
{$IFDEF OLYMPUS}
PictureDlg:TTakePictureDlg;
{$ELSE}
aDev:Integer;
{$ENDIF}
begin
{
Ìîäû âûçîâà (Dev):
                       0 - òåñò,
                       1 - TWAIN,
                       2 - TWAIN ñ âûáîðîì èñòî÷íèêà
                       3 - OLYMPUS USB
}

Result:=1;
Application.Handle:=AppHandle;

Application.CreateForm(TFPreviewPhoto, FPreviewPhoto);

........



---

← →
Koala ©   (2004-10-28 11:34) [4]

Ega23 ©   (27.10.04 19:01) [3]
Огромное спасибо... Помогло...

---

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

Скачать: CL | DM;



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