Конференция "Начинающим" » Вопрос своему по компонету [D7]
 
  • 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+пробел никак ниче не показывало, хотя компилилось, втупую что-то прописать из структуры не пахало

    вообщем спасибо тебе АГРОменное
 
Конференция "Начинающим" » Вопрос своему по компонету [D7]
Есть новые Нет новых   [93030   +19][b:0.001][p:0.003]