Miten tuossa Mediaplayer komponentissa, jos käyttää Displayna panel komponenttia saa videon venytettyä koko paneelin kokoiseksi?
Vastaukset 4
- MadMax
MediaPlayer1.DisplayRect := Panel1.ClientRect;
- MadMax
se pitää laittaa oikeaan kohtaan
mediaPlayer1.Open;
mediaplayer1.DisplayRect:=panel1.ClientRect;
mediaPlayer1.Play;
- adsl2
Jos olet video soitinta tms. tekemässä suosittelen DSPackia.
http://www.progdigy.com/ - Mika0800
toinen vaihtoehto:
Importoi ActiveX -komponenttina Microsoftin Windows Media Player. HUOM: Et voi hyväksyä Delphin ehdottamaa TMediaPlayer -nimeä, koska se menee päällekkäin Delphin oman MCI -pohjaisen komponentin kanssa (ainakaan Delphi5:ssä ei voi).
Sensijaan nimeä tuotavana oleva ActiveX -komponentti vaikkapa TMsMediaPlayer, niin pitäisi toimia ok.
Jos ongelmana on toistuvat AccessViolation -ilmoitukset, tee näin:
1. ÄLÄ pudota TMsMediaPlayeriä formille, vaan luo se koodissa, siis näin:
TForm1.FormCreate(...);
begin
//
MyPlayer := TMsMediaPlayer.Create(Self);
MyPlayer.parent := Panel1;
end;
ja sitten:
lisää formille WM_Destroy -viestikäsittelijä.
Siinä tee näin:
TForm1.WMDestroy(...);
begin
//
FreeAndNil(MyPlayer);
inherited;
end;
Tämän pitäisi lopettaa AccessViolation -ilmoitukset.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Venäjä alkaa iskemään Suomen politiikkaan.
Tässä on valtion ja koko länsiliiton päämiehet varoitelleet, että Venäjä alkaa talven aikana taas iskemään hybridisesti.1811059- 80707
Muistelen lämmöllä
Se oli vaikein päätös, jonka olen joutunut tekemään. En pidä valehtelusta, mutta näin sait päätöksen asioille. Rakasti48682- 81591
- 39549
- 46540
Uskon, että saataisiin kaikki selvitettyä
Mutta yhteys on jäissä, minä olen jäässä, enkä osaa tai uskalla enää lähestyä. Se vaan on niin. Naiselta Jos ei ole hyvä39531- 106530
- 23513
Sysmän "ilon päivä"
Ja taas palaa hirveä määrä verorahoja, ihan turhaan soopaan. Eikö nämä jotka kuntapolitiikassa valittavat ja tuhoaa vaan39507Teinipersu Bergbom lupasi ensimmäisenä euron bensaa
Teinipersu julkaisi Tiktok-videonsa marraskuussa 2021. Videolla Bergbom viittaa bensan hintoja esittelevään kylttiin ja288504Jos olen aiheuttanut pahaa, pyydän anteeksi
Jos olen omalla kirjoittelullani aiheuttanut täällä jollekin pahaa mieltä tai sotkenut asioita, niin pyydän sitä anteeks64499Onko se loukkaavaa jos pelkkä seksi kiinnostaa?
En tiedä olisiko meillä muuta yhteistä edes. En kyllä oikein osaa nähdä meitä menemässä naimisiin, paitsi ehkä jossain U47484Vaihdevuodet ja psykoottinen käytös
Estrogeenilla on suora yhteys aivojen välittäjäaineisiin, erityisesti serotoniiniin, joka säätelee mielialaa, impulssiko42454Hallituksen järjestämä spektaakkeli tuo vessanpyttykeissi
Että olisi kymmenien kansanedustajien kodeissa käyty ihan tuosta vaan, eikä kukaan kansanedustaja kerro niin käyneen, va150442Luottamus
Luotan vain siihen mitä tapahtuu IRL. Anonyymipalstan vihjailut eivät merkitse minulle mitään.91436Timo Vornanen.
On siinäkin yksi täystampio. Eipä ihme, että persukannattajat sen eduskuntaan äänestikin.26430- 21422
Joka ilta mietin
sua❤️Mitä teet, missä meet? Kaipaatko yhtään? Yön tullen toivotan mielessäni sulle hyvää yötä ja aamuisin huomenet. Joka24416Sofia ja Jeffrey yhdessä
Sofia julkaisi instassa kuvan hänestä ja Jeffreystä kuvan, taustalla soi Happy birthday biisi ja Jeffrey kasvot peitetty80415