video player olan formu kapatma tekrar acma sorunu

[sadikacar60]

arkadaslar MPVPlayer1 adinda bir video oynaticim var.
lazarus ide kullaniyorum. formu manuel olusturacak sekilde ayarladim.

ilk video oynuyor form kapaniyor ama ikinci kez formu create etmek istedigimde hata aliyorum.
bir suru secenek denedim olmadi.

formu tam olarak kapatamiyormuyum. form icindek player acikmi kaliyor 
sorun nerde bulamadim.

formu otomatik create aldim sadece show ve close ile kullanmaya calistim gene ayni

otomatik create modunda iken //CloseAction := caFree;  iptal ettigimde calisiyor.
birde play den once playere close dersem calisiyor.

benim istedigim manuel cerate ihtiyacim oldugunda formu create edeyim video bitince form bosalsin ve kapansin
tekrar ihtiyacim olursa tekrar create edeyim.
acaba her create ettigimde farkli bir form mu create ediyorum ondanmi hata veriyor

bu konuda fikirleriniz varsa yazarsaniz cok sevinirim saygilar

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form2<>nil then Form2.Close;
             Application.CreateForm(TForm2, Form2);
             Form2.Show;

end;

procedure TForm2.FormShow(Sender: TObject);
begin
 MPVPlayer1.Play('VIDEO\11.wmv');
end;

procedure TForm2.MPVPlayer1Pause(Sender: TObject);
begin
 Form2.Close;
end;

procedure TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 CloseAction := caFree;
end;

[esistem]

Merhaba, ben aşağıdaki gibi kullanıyorum.

button click : 
if not Assigned(f_cari_1)
   then f_cari_1 := Tf_cari_1.Create(nil);

f_cari_1.Show;   



cari kapatırkende;

procedure Tf_cari_1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
     f_cari_1.Free;
     f_cari_1:=nil;
     CloseAction := caFree;
end;   

[sadikacar60]

(26-11-2024, Saat: 15:46)esistem Adlı Kullanıcıdan Alıntı: Merhaba, ben aşağıdaki gibi kullanıyorum.

button click : 
if not Assigned(f_cari_1)
   then f_cari_1 := Tf_cari_1.Create(nil);

f_cari_1.Show;   



cari kapatırkende;

procedure Tf_cari_1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
     f_cari_1.Free;
     f_cari_1:=nil;
     CloseAction := caFree;
end;   

hocam gonderdigini kod video oynatmadan guzel calisiyor fakat videoyu oynaytip video birince 

procedure TForm2.MPVPlayer1Pause(Sender: TObject);
begin
Form2.Close;
end;

yukardaki kodla formu otomatik kapatinca hata veriyor onu iptal edip elle kapattigimda hata vermiyor.
sanirim video bitince player i tamamen devre disi birakip oyle kapatmak kazim

birde videoyu acip video oynarken formu kapattigimda video biryerlerde hala oynuyor enteresan sekilde
saygilar

[esistem]

Muhtemelen player programdan bağımsız bi şekilde thread kullanarak çalışıyordur.
Siz bir şekilde playeri sonlandırıp kapatma işlemini o zaman yapmalısınız ki bu tip hatalar oluşmasın.

Onunda en kolay yolu try except finally kullanmak sanırım.