Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
[ÇÖZÜLDÜ] Interface nasil kullanılır?
#1
Merhaba. FMX çok yapısında buna benzer yapılar görüyorum. Tam olarak ne için böyle karmaşık olduklarını anlamadım. Bende bileşenimde bu tür yapıyı kullanmak zorundamıyım? Tam olarak nasıl kullanmalıyım?

 
type
  ICustomInterface= interface(IInterface)
  ['{A5BB2E8C-6D53-4FF3-BC38-2299285F07BD}']
  end;

  TCustomService = class(TInterfacedObject, ICustomInterface)
  private
    [Weak] FControl: TCustomControl;
  end;

  TCustomControl = class(TControl)
  private
    FInterface: ICustomInterface; 
  end;

  TMyControl= class(TCustomControl)
  published
    property Align;
    property Anchors;
    property Height;
    property Size;
    property Margins;
    property Position;
    property Visible default True;
    property Width;
  end;
WWW
Cevapla
#2
Merhaba,
Zamanında ben de bu konuda çok araştırma yapmıştım. Değerli bir makale linkini paylaşıyorum. (Tuğrul hocamın.)
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#3
(18-05-2017, Saat: 17:11)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,
Zamanında ben de bu konuda çok araştırma yapmıştım. Değerli bir makale linkini paylaşıyorum. (Tuğrul hocamın.)
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Teşekkürler Fesih bey.
WWW
Cevapla
#4
(18-05-2017, Saat: 17:13)AliZairov Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(18-05-2017, Saat: 17:11)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba,
Zamanında ben de bu konuda çok araştırma yapmıştım. Değerli bir makale linkini paylaşıyorum. (Tuğrul hocamın.)
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Teşekkürler Fesih bey.

Smile
Makaleyi yazan Tuğrul hocam. Kendisine de bu vesile ile teşekkür ederiz.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#5
(18-05-2017, Saat: 17:18)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSmile
Makaleyi yazan Tuğrul hocam. Kendisine de bu vesile ile teşekkür ederiz.

Evet doğru söylüyorsunuz. Makale için teşekkürler Tuğrul bey.

Örnek için böyle bir yapı oluşturdum.
type
  ICustomLayout = interface
 ['{298A6440-4713-4D5C-BF72-281121502592}']
   procedure init(context: string);
 end;

 ICustomPlayer = interface(ICustomLayout)
 ['{D39B326D-AA06-40AC-96C6-8F48D7405A87}']
   procedure Play;
 end;

 TCustomPlayer = class(TInterfacedObject, ICustomPlayer)
   procedure init(context: string);
   procedure Play;
 end;

{ TCustomPlayer }

procedure TCustomPlayer.init(context: string);
begin
  ShowMessage(context);
end;

procedure TCustomPlayer.Play;
begin
  ShowMessage('Play');
end;

var
   FControl: TCustomPlayer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FControl := TCustomPlayer.Create;
  FControl.init('Interfce');
  FControl.Play;
end;

Not: GUID hazırlamak için CTRL+SHIFT+G tuşlarına interface altında tıklayınız.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Form oluşturma (Çözüldü) Orhanlar 3 125 10-09-2018, Saat: 10:48
Son Yorum: Orhanlar
Question [ ÇÖZÜLDÜ ] SQLİTE bağlantı sorunu BY-HAYALET 9 491 10-07-2018, Saat: 12:41
Son Yorum: BY-HAYALET
Video TListViewItem arkaplanı nasıl değiştirilir? Abdullah ILGAZ 4 593 05-07-2018, Saat: 13:15
Son Yorum: Bay_Y
  [ÇÖZÜLDÜ]-FDConnection - SQL Server Dil Ayarlama hi_selamlar 1 166 27-06-2018, Saat: 00:31
Son Yorum: hi_selamlar
  ios resim galerisi şeklinde yapı kurgusu nasıl olmalı pro_imaj 7 460 14-06-2018, Saat: 13:05
Son Yorum: bilrax



Konuyu Okuyanlar: 1 Ziyaretçi