ebook

a mediaplayer events fulon talalsz egy OnNotifity esemenyt click reaja

 

ezt a kodot

 

begin

with Sender as TMediaPlayer do

begin

Form1.Caption := ModeStr[Mode];

{ Note we must reset the Notify property to True }

{ so that we are notified the next time the }

{ mode changes }

Notify := True;

end;

 

copy bele

********************************************************

ezt ide

 

var

Form1: TForm1;

const

 

ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

 

 

ezeket atirhatod magyar nyelvure is

 

notifity egyebkent ertesit kozol

 

 

na most a rizsa

 

A notifity true allitasaval a mediaplayer meghivja a media control metodusait Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, Resume, Rewind, StartRecording, Step, or Stop) de ezzel meg nem vagyunk sehol

letre kell hozni egy tombot lsd fent aminek az egyes elemei tmpnodes tipusuak es amikor esemeny van

pl pause vagy play a mediaplayer sikit hogy mi tortent

 

Az angol forditas persze nem szo szerint ez de a lenyeg benne van

 

itt mazsolazhatsz egyebkent

http://www.prog.hu/kereses/?expr=mediaplayer&ndid=4550&oc=20

sok sikert

Köszönjük szépen

ok. örülök neki

 

ugy látom Nick:=The new Nick

 

Az öreg Teutul jobb volt

Delphi 7-et használok. Telepítve van.

Itt egy példa a hibára:

 

[Fatal Error] Unit1.pas(7): File not found: 'AdvMenus.dcu'

 

 

nekem pl hibatlanul lefordult

 

d7 elindit

menuben bök Tools / Evironment / options / megjeleno ablakon Library ful

 

itt kivalsztod a mappat ahova a TMS-t telepitetted oszt mennie kell (Library path)

berakhatod a Browsing Pathba is hatha az segit

koszonom nagy hasznat vettem