delphi - At få ens program til at komme rundt!!! - Udvikleren.dk

Tags: delphi

<< < 1 2 > >>

Bruger #5097 @ 08.03.04 15:35

Du ved nok at vis du hold musen nede på det øverste af dit program (det er der vor du ændre når du laver om i borderstyle), så vil du kunne rygge rundt på dit program. Hvordan kan jeg gøre det samme med en knap. Hvor du bare skal holde knappen nede og så kan du ændre dens plads?

Og da jeg nu er i gang med at lave et media player pro... der kan afspille film. Tænkte jeg på om jeg kan lave en fuld skærm funtion? Hvor du kun ser filmen og ikke windows...

Tak

13 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma

Sorter efter stemmer Sorter efter dato

Bruger #3275 @ 09.03.04 07:00

1.736

MediaPlayer har ikke en indbygget volume kontrol men du kan bruge følgende kode til en trackbar. HUSK at sætte trackbarens maxsize (tror jeg nok det hedder) til (i dette tilfælde) 19.

Kode

case  TrackBar1.Position of
    1:  waveOutSetVolume(0, $FFFFFFFF);
    2:  waveOutSetVolume(0, $FFF0FFF0);
    3:  waveOutSetVolume(0, $FFF0FFF0);
    4:  waveOutSetVolume(0, $FF00FF00);
    5:  waveOutSetVolume(0, $F000F000);
    6:  waveOutSetVolume(0, $E000E000);
    7:  waveOutSetVolume(0, $D000D000);
    8:  waveOutSetVolume(0, $C000C000);
    9:  waveOutSetVolume(0, $B000B000);
    10: waveOutSetVolume(0, $A000A000);
    11: waveOutSetVolume(0, $90009000);
    12: waveOutSetVolume(0, $70007000);
    13: waveOutSetVolume(0, $60006000);
    14: waveOutSetVolume(0, $50005000);
    15: waveOutSetVolume(0, $30003000);
    16: waveOutSetVolume(0, $40004000);
    17: waveOutSetVolume(0, $20002000);
    18: waveOutSetVolume(0, $10001000);
    19: waveOutSetVolume(0, $00000000);

Du kan også finde nogle komponenter til det her:
http://torry.net/pages.php?id=184
Personligt bruger jeg selv TssVolumeController v.1.01

Windows er verdens beste trojan!

Bruger #3275 @ 08.03.04 16:15

1.736

Kan godt lide at du siger du har læst flere tusinder af sider om Delphi men alligevel ved du ikke dette! Er ikke meget for at give det for 1 UP men alligevel

Kode

releasecapture;
perform(WM_SYSCOMMAND, SC_MOVE + 1, 0);

Skal sætte OnMouseDown

Windows er verdens beste trojan!

Bruger #5097 @ 08.03.04 21:00

818

Ha ha.
Er enig :-). Men dog er der altid nogle holder der skal fyldes ud...
Ingen af de bøger jeg har læst bskrive det.
Tjecker koden i mogen.

Nu når vi er igang kan du så en kode som kan ændre i volumen i en mediaplayer?

Vis du ikke svare får du selvfølgelig også dit 1ne up...