Merhaba, Bir çoğumuzum dikkatini, Ofis gibi microsoft ürünlerinde ekrana gelen ve sevimli hareketler yapan karakterler çekmiştir. Ve keşke böyle bir şeyi biz kendi programlarımızda kullansakta ortama renk katsak, ürünümüzün görsel kalitesini arttırsak diyenlerimizde elbetteki olmuştur. Sizlere TAgent ActiveX kontrolünü kullanarak Agent karakterlerini projemizde kullanmaktan bahsetmek istiyorum. Öncelikle Delphi IDE de, Component / Import ActiveX Control menüsüne girerek Listeden, Microsoft Agent Control 2.0 seçerek INSTALL tuşuna basıyor ve Component Palette ActiveX sekmesindeki yerini almasını sağlıyoruz. Artık Agent neslerine ActiveX kulanarak Erişimi yapmak için delphi tarafında ihtiyacımız olanı sağladık. Şimdi bize test etmek için bir Agent Karakteri gerekli, ben makalemde bir çok Agent karakterine ulaşabileceğiniz http://www.msagentring.org/chars.aspx adresinden bulduğum Peedy isimli kuş karakterini kullanmayı tercih ettim. Bu adreste bütün karakterlerini davranışları detaylı bir şekilde döküman haline getirilmiş her karakterini benzer davranışları olduğu gibi bir çoğuda farklılık gösterebiliyor. ilgili paket dosyasını sistemimizde çalıştırıp karakteri kaydettiriyoruz. Artık biraz hareket görelim. Private olarak BizimKarakter : IAgentCtlCharacter değişkeni tanımlamasını yapalım. Projemize ActiveX sekmesindeki TAgent nesnesi yerleştiriyoruz bir TButton ekleyelim ve OnClick olay metoduna şunları yazalım, Kod: Agent1. Characters. Load ; BizimKarakter := Agent1. Characters ; With BizimKarakter do begin Show ; Speak ; Speak ; Play ; MoveTo( Form1. Left + Form1. ClientWidth - 50, Form1. Top + Form1. ClientHeight - 50, 1000 ); end; Evet yukarıda yaptıklarımızı inceleyecek olursak, Private bölümüne, IAgentCtlCharacter tipinde bir arabirim değişken tanımlaması yaptık, Agent nesnesine sistemde Peedy. acs dosyasında bulunan Peedy adındaki karakteri yükledik. BizimKarakter isimli arabirim değişkene TAgent nesnesine yüklediğimiz karakter den Peedy adındakini atadık. Show özelliğini False parametresiyle çağırarak karakterimizi gösterdik. Sonra Speak metoduna birinci parametre String tipinde konuşma balonunda çıkacak yazıyı ikinci parametre boş geçerek karakterimizin yazılı olarak konuşmasını sağladık, burada istediğiniz kadar Speak metodunu üst üste çağırarak konuşturabilirsiniz be niki defa çağırdım. Sonra her bir karaktere göre farklılık gösteren Davranış listesinden rast gele seçtiğim bir davranış olan Process isimli davranışı Play metoduna parametre geçerek davranışı icra etmesini sağladım, burada Peedy karakteri cebinden bir hesap makinası çıkartıp işlem yapıyor. sonra MoveTo adındaki metodu çağırarak karakteri ekranıın üst köşesinden Formuma göre ekranın altına taşıdım tabi karakterine göre farklı bir şekilde nesne hareket ediyor bizim peedy bir kuş oda doğal olarak uçarak hareket etti. Genel olarak kullanımı bu şekilde umarım net olmuştur. Yukarıda verdiğim adresde yeterince çeşit var. Kolay gelsin. İyi çalışmalar. Not: Alıntıdır. Ve denenmiştir. Kod çalışmaktadır MS Agent Karekterileri ve kontrollerini bulacağınız bir site adresi veriyorum http://www.msagentring.org/chars.aspx