Merhaba abilerim, kardeşlerim. Delphi`ye yeni başladım. Kendimi geliştirmek için çeşitli projeler yapmayı hedefliyorum. Soruma gelecek olursak, Import component`den, Shockwave Flash eklentisini sorunsuzca yüklüyorum. Ama Tool Palette bölümünde, bulamıyorum. Ne diye aratmam lazım ?Yardımcı olur iseniz, çok mutlu olurum.
Hayırlı akşamlar.
import ederken Tool Palette olarak hangi başlığı seçiyorsanız orada en altta gözler aramalı. Activex sizin in varsayılanıdır.
Ayrıca import edilenler importedilencontroladi_TLB.pas gibi bir dosyadır. Palette görünmese de bu dosyayı uses olarak projenize eklediğiniz zaman, elle manuel create edip formda bir wincontrol parent gösterip kullanabilirsiniz.
Yeni başladım dediğiniz için biraz pratik yapmanız lazım. Bunu başaramazsanız üzülmeyin, zamanla kazanımlarınız artacaktır.
Delphi yakasına hoi geldiniz.
Hocam, importedilencontroladi_TLB.pas bu dosyayı , projemize uses olarak nasıl ekleyeceğiz.? Elle manuel create etmeyi de, bilmiyorum.
(04-09-2023, Saat: 16:03)cihad11 Adlı Kullanıcıdan Alıntı: [ -> ]Hocam, importedilencontroladi_TLB.pas bu dosyayı , projemize uses olarak nasıl ekleyeceğiz.? Elle manuel create etmeyi de, bilmiyorum.
Selamlar
projenizi açın ve import olarak ekleyeceğiniz shockvawe tlb activex componentini seçin. Projenizin use kısmına eklenmiş olacaktır.
[
attachment=2413]
https://docwiki.embarcadero.com/RADStudi...pe_Library
Arkadaşlar, sizleri de yordum. Kusuruma bakmayın, acemiyim. Ama SWF Componentini use olarak yüklemeyi beceremedim.
Şöyle bir örnek ile Tool Palete koymadan test edebilirsiniz.
uses ShockwaveFlashObjects_TLB;
var
FShockWave : TShockwaveFlash;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
LFile : string;
begin
LFile := ExtractFilePath(paramstr(0)) + 'sample_1280x720.swf';
if NOT FileExists(LFile) then Exit;
if NOT Assigned(FShockWave) then
begin
FShockWave := TShockwaveFlash.Create(nil);
FShockWave.ParentWindow := Panel1.Handle;
FShockWave.Width := 720;
FShockWave.Height := 384;
FShockWave.ScaleMode := 2;
FShockWave.Visible := TRUE;
FShockWave.Movie := LFile;
FShockWave.Loop := true;
FShockWave.Play;
end;
end;
proje kod örneği ve swf dosyası
bu linkte
İlk defa deneyecekler için; öncelikle Win32 klasöründeki
swflash.ocx dosyasını yüklemek için aşağıdaki komutu yazın.
Kod:
regsvr32 swflash.ocx
DelphiCan, Ailesi, hepinize çok çok teşekkürlerimi iletiyorum. Bana vaktinizi ayırdınız. Minnettarım.Sorunumu çözdüm.
