Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

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Ü] FMX Servis Kalıcı Olarak Çalıştırma hyperxman 0 96 08-02-2018, Saat: 23:32
Son Yorum: hyperxman
  Edit renklendirilince proje hiç açılmadan kapanıyor[Çözüldü] hakanharbeli 4 154 03-02-2018, Saat: 18:54
Son Yorum: hakanharbeli
  Uygulama linki paylaşma sorunu [ÇÖZÜLDÜ] codder71 2 98 30-01-2018, Saat: 23:38
Son Yorum: codder71
  Listview seçili satır image - Çözüldü serhat 4 139 24-01-2018, Saat: 18:45
Son Yorum: brs
  Delphi Android Sayı Karmaşası [Çözüldü] codder71 2 152 12-01-2018, Saat: 15:54
Son Yorum: codder71



Konuyu Okuyanlar: 1 Ziyaretçi