flash ve formlar

[Misafir]

Selam arkadaşlar, benim programım özgün olmalı button,edit.text... gibi
nesnelerim farklı olmalı. Flashla yaptığım button olsun, edit.text osun, combobox olsun... flashla yaptığım form elemanlarına delphideki form elemanlarının özelliklerini verebilirmiyim, nasıl? yoksa component oluşturarak mı?

[mussimsek]

Selam,

flash yazarak Arama kısmından aratın.

Kolay gelsin.

[husonet]

Kod: Tümünü seç

unit flash;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls;

type
TForm1 = class(TForm)
Flash1: TShockwaveFlash;
Button1: TButton;
TrackBar1: TTrackBar;
Open1: TOpenDialog;
Button2: TButton;
Button3: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if open1.Execute then begin
flash1.Movie:=open1.FileName;
trackbar1.Max:=flash1.TotalFrames;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
flash1.Play;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if Flash1.IsPlaying=true then Flash1.Stop;
flash1.GotoFrame(trackbar1.position);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
flash1.Stop;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
trackbar1.Position:=flash1.CurrentFrame;
end;

end.

Kolay Gelsin...

[Misafir]

flash nesnesini kendim mi oluşturucam yoksa componentlerde var mı
teşekkürler kolay gelsin...

[mbt]

Delphi de component menusunden -> Import ActiveX seceneğini seçerek -> "shockwave flash" ocx'ni bularak eklettiriniz. Artık buradaki komutları kullanabilmeye hazır hale gelmiştir. Macromedia Flash da hazırladığınız nesneleri kolayca programınıza gömebilirsiniz.

Husonet'in yukarıda verdiği kodu kullanabilirsiniz.

[Misafir]

tamam komutlarda hata vermiyor ama husonet in kodlarında flash1 nesnesi var ben component çubuğunda göremiyorum?(ocx dosyalarını eklemiş olmama rağmen)

[husonet]

TShockwaveFlash in, Oluşturmuş olduğun nesnenin ismi adı olarak düşünebilirsin. Formun'a eklediğin nesneyi name kısmını değiştirirsen o nesneyi artık o isim ile anımsanır.

Kolay Gelsin...

[Misafir]

Hüseyin abi, hata veriyor:hata veren satır "if FIntf = nil then DoCreate"
nesne derken yeni bir componentten mi bahsediyorsunuz, kusura bakmayın pek anlayamadım ama.

[husonet]

nesne derken yeni bir componentten mi bahsediyorsunuz, kusura bakmayın pek anlayamadım ama.

Evet Component ler nesnedir.

TShockwaveFlash ı Delphi Editörüne import ettinizmi? Ettiyseniz Paletten sürükleyerek Forum'un üstüne bırakınız ve verdiğim kodu uygun bir şekilde düzenleyiniz.

Ayrıca OpenDialog Objesini de Forum'a ekledinmi?


Kolay Gelsin....

[Misafir]

mbt nin dediği gibi activex i import ettim fakat component çubuğunda
tshockwave flashı bulamadım ve opendialogu forma ekledim ama hata veriyor
teşekkürler

[husonet]

import ettiysen Activex tabında gözükmesi lazım.

Kolay Gelsin...

[Misafir]

Hüseyin abi çok teşekkür ederim, activex i import ettikten sonra install etmem gerekiyormuş ve install ettim artık flash nesnesine sahibim
kolay gelsin, iyi çalışmalar

[ender_arslanturk]

Hüseyin hocam kaç gündür uğraşıpta içinden çıkamadığım bir mesele var

http://www.flashdersleri.com/html_dosyalar/harita.rar burada flası bulunan dosya indirip, http://www.flashdersleri.com/html_dosyalar/haritam.html burdaki sayfayı inceleyebilirmisin....

Flash ile hazırlanmış bir Türkiye haritası...

İçinden çıkamadığım konuyu özetlemek gerekir ise... Türkiye ile yaptığım bir proje... Bugüne yetiştirmeye çalıştım fakat nasip değil galiba... Bugün cumhuriyet bayramı...

Buradaki swf yi exe ye gömdüm... İstediğim ise hangi şehir kliklenirse bana o şehire ait formu açıcak... Delphi de ne yaptıysam olmadı... Yeni başlık açmaya gerek duymadım ... Eğer bu swf olayıda çözülürse hemen uyarlayıp download linki vericem... Bu ara program Türkiyenin tanıtımı ve ek ilavelerimde olduğu için bedava kullanıma sunacağım...

Artık bilen bilmeyen her türlü yardım bugün içerisinde gereklidir ... (Anlam ve önemi bakımından )

[ender_arslanturk]

Hocam tabii bunlar mümkünse birde küçük bir proje kodu alabilirsem ....

[ender_arslanturk]

Bu günden geçti artık... Çok yerde aradım olaylarında tek tek parametreleri denedim olmadı.

Birde arkadaşlar http://www.delphiflash.com diye bir site rastladım... Componentler var demo baktım ama delphiye import edince hata alıyorum.