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
  [Çözüldü] FireBase (FCM) Push Notification mesajı gelmiyor Fesih ARSLAN 11 231 19-04-2018, Saat: 22:53
Son Yorum: Fesih ARSLAN
Information Status Bar Android [ÇÖZÜLDÜ] malitutuncu 8 348 27-02-2018, Saat: 09:23
Son Yorum: malitutuncu
Question TWebView ile Web Sitesindeki Herhangi Bir Nesneye Ulaşım Yada Cookie [ÇÖZÜLDÜ] malitutuncu 2 302 22-02-2018, Saat: 09:47
Son Yorum: malitutuncu
  Edit renklendirilince proje hiç açılmadan kapanıyor[Çözüldü] hakanharbeli 4 219 03-02-2018, Saat: 18:54
Son Yorum: hakanharbeli
  Uygulama linki paylaşma sorunu [ÇÖZÜLDÜ] codder71 2 159 30-01-2018, Saat: 23:38
Son Yorum: codder71



Konuyu Okuyanlar: 1 Ziyaretçi