PHP DM Gate v0.9 » Вопрос своему по компонету <span class="vd">[D7]</span>

Signalsus (01.08.18 17:00) [0]

есть 1 компонент класса THRead
есть к нему обертка класса TComponent (не визуальный)

из Thread после его завершения передается массив Array в TComponent
никак не могу вдуплить, как его потом передать на сновную форму?

из THRead переадется так
type TDataEventsArray = Array of TDataEvents;
...
private
pDataEvents:TDataEventsArray;
...
public
property DataEvents:TDataEventsArray read pDataEvents;
...
в TComponent читается осюда по завершению THRead

как мне объявить событие в unit1, когда мой TComponent не визуальный?
совсем не въеду
и передать ему вот это DataEvents:TDataEventsArray?

<Цитата>
Signalsus (01.08.18 17:02) [1]

просто объявлен в var
MyRComponetn:TComponentMYYYY;
грубо говоря

<Цитата>
icp © (01.08.18 17:32) [2]

событие это просто свойство. базовый тип тнотифайевент.

то есть
мойневизуальныйкомпонент.ОнЧтоТоТамВНосу := МойМетодФормы;

<Цитата>
Signalsus (01.08.18 17:47) [3]

это все понятно, что свойство

в компоненте обертке
type
TCatalogNotify = procedure(Sender: TObject; DataEvents:TDataEventsArray) of object;
...
private
FCatalogNotify: TCatalogNotify;
...
public
property OnLoadCatalog: TCatalogNotify read FCatalogNotify write FCatalogNotify;

procedure TBGGetCataloge.SetGetCatalogNotify(DataEvents:TDataEventsArray);
begin
if Assigned(FCatalogNotify) then FCatalogNotify(Self, DataEvents);
end;

на форме

..
public
procedure BFCatalogeList(Sender: TObject; CatalogNotify:TCatalogNotify);

var
BetFairGetCataloge:TBGGetCataloge;
...

procedure...
BetFairGetCataloge:=TBGGetCataloge.Create;
BetFairGetCataloge.OnLoadCatalog:=BFCatalogeList; //===вот тут не совпадение типов TCatalogNotify и TDataEventsArray

<Цитата>
icp © (01.08.18 17:55) [4]

ну. не совпадение.
потому что BFCatalogeList должна быть такой

BFCatalogeList(Sender: TObject; DataEvents:TDataEventsArray)

<Цитата>
icp © (01.08.18 17:58) [5]

OnLoadCatalog это свойство типа TCatalogNotify

а TCatalogNotify это метод с прототипом (Sender: TObject; DataEvents:TDataEventsArray)

<Цитата>
Signalsus (01.08.18 18:01) [6]

тю екараный бабай, заработало! 2 раз пробовал менять туда и туда, компилилось но по ctrl+пробел никак ниче не показывало, хотя компилилось, втупую что-то прописать из структуры не пахало

вообщем спасибо тебе АГРОменное

<Цитата>