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

Вопрос по написанию компонентов   Найти похожие ветки 

← →
Viktor_bs ©   (2003-04-12 17:26) [0]

Hi, All

Я написал компонент (наследник TComponent) могу ли я :
1. получить Handle приложения "внутри" компонента.
2.при "укладке" компонента на форму прописывать в Uses dpr Sharemem.

P.S. Компонент реализуют взаимодействия с DLL, а для этого нужно выше перечисленное.

---

← →
Skier ©   (2003-04-12 17:33) [1]

1) Да
2) На сколько я знаю - нет.

---

← →
Viktor_bs ©   (2003-04-12 18:56) [2]

>1) Да

:-))

Как ?

---

← →
Skier ©   (2003-04-12 19:44) [3]

Примерно так : :)


uses
..., Forms,...;

type
TYourComponent = class(TComponent)
private
function GetAppHandle: THandle;
public
property AppHandle : THandle read GetAppHandle;
published
end; //TYourComponent

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("YourComponents", [TYourComponent]);
end;

function TYourComponent.GetAppHandle: THandle;
begin
Result := Application.Handle;
end;


---

← →
Viktor_bs ©   (2003-04-12 19:57) [4]

Спасибо.

Уже сам разобрался. Забыл написать Uses Forms и долго не доумевал почему Application не компилит.

И еще вопрос ...

Можно ли получить handle иконки приложения (в Dll) зная только handle вызвавшего его приложения.

ExtractIcon не предлагать.

---

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

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



Память: 0.45 MB
Время: 0.01 c