Flash butonları Delphide nasıl kullanırım?

[ademiz]

Arkadaşlar Merhaba

Flash ta yapılmış butonları Delphide kullanamıyorum.

Ekrana yerleştirdiğim ShockwaveFlash ActiveX bileşeninin OnClick olayı yok galiba onun için butonlara 2 bir formu açma komutunu veremiyorum.

Başka bir yolunu bilen arkadaşlar varsa cevaplarını memnuniyetle bekliyorum

Hepinize Saygılar

[DotCom]

Merhaba ;

aşağıdaki linkde sorunuzun cvp ı ayrıntılı olarak anlatılmış ve kod olarak verilmiş...

viewtopic.php?t=3650&highlight=flash

kolay gelsin.

[ademiz]

Hocam benim istediğim Flash filmini delphide yönetmek değil.

Sadece buton niyetine Flash filmine veya butonuna OnClick eventi atamak.

Yada bir image'i Rollover image halinede getirabilirsem onuda buton niyetine kullanırım.Çünkü image da Onclick olayı zaten var.

[mussimsek]

bu tarz free bileşenler var. Normal resimle, üzerine gelince gösterilecek resmi belirliyorsun, o hallediyor. Delphi Super Page ve Torry'e bir bak.

Ayrıca TImage ile de biraz uğraşarak yapabilirsin.

Kolay gelsin.

[ademiz]

Arkadaşlar TImages ile Rollover buton işini aşağıdaki kodla hallettim.

Flash butonla halledersem onuda yazarım

Kod: Tümünü seç

procedure TGenelForm.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('images/admin.bmp');
end;

procedure TGenelForm.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  Image1.Picture.LoadFromFile('images/guvenlik.bmp');
end;

procedure TGenelForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('images/admin.bmp');
end;

[sadettinpolat]

bu kod sizin ilk başlarda sorununuzu çözüyormuş gibi görünüyor ama ileride bir facia ile sonuçlanabilir.

formun onmousemove olayında image deki resmi değiştirmek ne kadar nesneye yönelik tanımının içine girer. girse girse nesnelere yönelik programlamanın içine girer.

aşağıda normal, tıklanmış ve maousun üzerine geldiği olaylarını ayrı ayrı işleyebileceğiniz bedava kaynak kodu yanında bir bileşen var. onu kullanmanızı tavsiye ederim.

http://www.torry.net/vcl/buttons/buttons/pkimgbtn.zip

[ademiz]

bu kod sizin ilk başlarda sorununuzu çözüyormuş gibi görünüyor ama ileride bir facia ile sonuçlanabilir.

O zaman MouseLeave olayını nasıl yapacağım.

sadece images in üzerinden ayrılınca çalışan Mouse kodu varmı?

[showtime]

değişecek resimn altına bir büyük resim koyup onun özerine gelince ilk resim değiştirme yapılabilir

[sadettinpolat]

O zaman MouseLeave olayını nasıl yapacağım.

cm_mouseenter ve cm_mouseleave mesajlarını yakalamanız gerekiyor. hali hazırdaki image nesnesi ile bu işi yapamıyorsunuz ne yazik ki ama image bileşeninden yeni bir sınıf üreterek bunu yapabilirsiniz. Size tavsiye ettiğim bileşenin kaynak kodunu incelerseniz daha rahat anlayabilirsiniz.

diğer yöntemler pek sağlıklı değil. bende kullanmıştım ama daha sonraları başımı çok ağrıttı. aynı duruma düşmenizi istemem....

[ademiz]

sadettinpolat hocam

bu sizin tavsiye ettiğiniz componenti kurdum.Fakat resimleri bir türlü göstermiyor.Acaba bii inceliğimi var yoksa Delphi 7 olduğu içinmi çalışmıyor.

Normal forma ekleyip özelliklerini kulandırıyor fakat resim ekleyince göstermiyor

[husonet]

Flash ile bunu yapabilirsin. Flasda Action scripte FSCommand fonkisyonunu kullanarak bir değer gönder. delphi kısmında yakala.

Kolay Gelsin...

[husonet]

Hadi bu gün iyi günümdeyim koduda yazayım bari

Öncelikle Flash kısmında yapacağım bir işlemi delphi işlemek için FSCommand komutundan yaralanırız yani Actionscriptte yapılacak kodlama.
Flashtaki butonun Action Script kısmı

Kod: Tümünü seç

on (release) { 
   fscommand ("HUSONET"); 
} 

Delphi gönderilen değeri yakalamak için TShockwaveFlash objesinin FlashFSCommand eventinden yararlanırız

Kodumuz

Kod: Tümünü seç

procedure TForm1.FlashFSCommand(Sender: TObject; const command,
  args: WideString);
begin
    if Command='HUSONET' then
        Showmessage('DelphiTurkiye.Com');

end;

Kolay Gelsin....

[ademiz]

Hadi bu gün iyi günümdeyim koduda yazayım bari

Hocam hemen deniyorum bunu sonucunu ileteceğim

[ademiz]

Hüseyin Hocam

Teşekkür ederim bu işi öğrendiğim çok iyi oldu.

Size hayırlı çalışmalar diliyorum

[ademiz]

Hüseyin bey bir şey merak ediyorum.

Şu an deneyemediğim için soruyorum?

Bu Flash Butonları projemizde kullandık.Fakat Flash Player olmayan makinede programı çalıştırdığımız zaman Flash butonlar gözükecekmi?