AppLojaYouTube/uMessaging.pas at main · ImperiumDelphi/AppLojaYouTube · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
unit uMessaging;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  System.Json, System.Messaging,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Net.URLClient, System.Net.HttpClient,
  System.Net.HttpClientComponent, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, uListaProduto, FMX.ISMessageDlg,
  uCardProd;

type

  TMessageShowProduto = Class(TMessage)
     Private
        FCard : TFrameCardProduto;
     Public
        Constructor Create(aCardProd : TFrameCardProduto);
        Property CardProd : TFrameCardProduto Read FCard;
     End;

  TMessageHideProduto = Class(TMessage);

implementation

{ TMessageShowProduto }

constructor TMessageShowProduto.Create(aCardProd: TFrameCardProduto);
begin
FCard := aCardProd;
end;


end.