Autor Téma: Objekt s udalosti ktera preda sama sebe  (Přečteno 187 krát)

Offline xnukes

  • Mladík
  • **
  • Příspěvků: 65
  • Karma: 1
    • Verze Delphi: XE7
    • Bludspeed s.r.o.
Objekt s udalosti ktera preda sama sebe
« kdy: 10-10-2017, 11:47:53 »
Zdravicko potreboval bych poradit. Mam objekt TDataGridColumn ktery ma property Renderer, a potreboval bych do teto property nacpat samotny objekt.
tzv. bych potreboval:

TDataGridColumnRenderer = function(Query: TFDCustomQuery; DataGridCol: TDataGridColumn): String of object;

bohuzel definice typu TDataGridColumn je definovana az pod touto funkci, ma nekdo nejaky napad ? Dekuju

Viz kod:
Kód: Delphi [Vybrat]
  1.   TColumnType = (ctText, ctNumber, ctCurrency);
  2.   TDataGridColumnRenderer = function(Query: TFDCustomQuery): String of object;
  3.   TDataGridColumn = class(TObject)
  4.     protected
  5.       Index: Integer;
  6.       Key: string;
  7.       Title: string;
  8.       ColumnType: TColumnType;
  9.       _ASuffix: string;
  10.       _APrefix: string;
  11.       _AColor: TColor;
  12.       _ABold: Boolean;
  13.       ColumnRenderer: TDataGridColumnRenderer;
  14.     public
  15.       constructor Create;
  16.       function SetSuffix(Suffix: string): TDataGridColumn;
  17.       function SetPrefix(Prefix: string): TDataGridColumn;
  18.       function SetBold(const Bold: Boolean = true): TDataGridColumn;
  19.       function SetColor(Color: TColor): TDataGridColumn;
  20.     published
  21.       property Renderer: TDataGridColumnRenderer read ColumnRenderer write ColumnRenderer;
  22.   end;
  23.  

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 1891
  • Karma: 96
    • Verze Delphi: D2007, XE3, DX10

Offline xnukes

  • Mladík
  • **
  • Příspěvků: 65
  • Karma: 1
    • Verze Delphi: XE7
    • Bludspeed s.r.o.
Re:Objekt s udalosti ktera preda sama sebe
« Odpověď #2 kdy: 10-10-2017, 12:17:23 »
óóó, děkuji převelice !!!

 

S rychlou odpovědí můžete používat BB kódy a emotikony jako v běžném okně pro odpověď, ale daleko rychleji.

Jméno: E-mail:
Ověření:
Datový typ v Delphi, který má True a False: