Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Картинка-Button [D2005, XP]

Страницы: 1 2 3 >
zancik © (2006-10-13 16:09:00)
Уважаемые мастера подскажите как любую картинку привратить в Button.
Благодарю!

SerJaNT (2006-10-17 02:57:00) [1]

> Zancik © (16.10.06 16:02) [45]

Ты вообще откуда будешь такой ??

Zancik (2006-10-16 16:02:00) [2]

> наверняка точка с запятой перед mmsystem. Нужно ставить
> запятую.А в самом конце после перечесления всех тратата
> ставить; :)

О точно благодарю! невнимателен :)

Chort (2006-10-16 15:59:00) [3]

> Люди подскажите что у меня тут не то? http://img209.imageshack.
> us/img209/7963/felleryh9.gif -скрин

наверняка точка с запятой перед mmsystem. Нужно ставить запятую.А в самом конце после перечесления всех тратата ставить; :)

Zancik (2006-10-16 15:55:00) [4]
Люди подскажите что у меня тут не то? http://img209.imageshack.us/img209/7963/felleryh9.gif -скрин

Chort (2006-10-16 14:49:00) [5]

> Я вот терь хочу сделать слайдшоу чтоб фотки менялись по
> секундм подскажите как сделать?

это уже новая ветка

Zancik (2006-10-16 14:32:00) [6]
Благодарю всех кто помогал мне у меня всё получилось как я хотел спасибо вам!!!
Я вот терь хочу сделать слайдшоу чтоб фотки менялись по секундм подскажите как сделать?

Chort (2006-10-15 19:57:00) [7]
uses
mmsystem;

// PLAY
sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC);

// Loop Mode (зацикливание)
sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC + SND_LOOP);

//STOP
sndPlaySound(nil, SND_ASYNC);

http://soft32.ru/delphi.shtml?topic=multimedia&title=play_wav_without_mediaplayer

Chort (2006-10-15 19:56:00) [8]
а если нормально, то
function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean;
Только в uses нужно дописать mmsystem

procedure TForm1.Button1Click(Sender: TObject); var PCh: PChar; begin if OpenDialog1.Execute then begin StrPCopy(PCh,OpenDialog1.FileName); PlaySound(Pch,0,SND_ASYNC or SND_LOOP); end; end;

Chort (2006-10-15 19:52:00) [9]

> Zancik © (15.10.06 19:06) [37]

не мучайся! пиши просто
procedure TForm1.Button1Click(Sender: TObject);
begin
Beep;
end;
:)

Zancik (2006-10-15 19:06:00) [10]
Тоесть сказать что я плохо сделал там что неправильно написал исправт плизз

Zancik (2006-10-15 19:03:00) [11]

> ого! это клюква!
> Ты ж ВУНДЕРКИНДЕР!
> TMediaPlayer+F1
> А вся байда с путем пишется в скобках и с вот такими штуками
> '
>
> PlaySound('тратата',трампампам);

Ты можешь скачать что я лохо там наделал я всёравно непонял сорри

Chort (2006-10-15 18:59:00) [12]

> Чёто неполучаеться у меня так выглядит это:

ого! это клюква!
Ты ж ВУНДЕРКИНДЕР!
TMediaPlayer+F1
А вся байда с путем пишется в скобках и с вот такими штуками '

PlaySound('тратата',трампампам);

medved_68 (2006-10-15 18:56:00) [13]

> Извиняйте за русский язык я просто человек нерусский :(

> развод?

По нерусски????? :))))

Zancik (2006-10-15 18:52:00) [14]

> развод?
> <Цитата>

всмысле

Virgo_Style (2006-10-15 18:46:00) [15]
развод?

Zancik (2006-10-15 17:29:00) [16]
Чёто неполучаеться у меня так выглядит это:

procedure TForm3.Button1Click(Sender: TObject);
begin
PlaySound'D:\МУЗЫКА\TRANCE\shiva\06 - Shiva Chandra - Family.mp3',0,
end;

end.

Zancik (2006-10-15 17:23:00) [17]

> > Куда имено прописывать эту строку?
>
> в тудыть:
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> ///////////////////////////////////
> end;

Пасиб буду пробовать там у музыке свой путь надо указать?

Zancik (2006-10-15 17:23:00) [18]

> мне вот стало интересно каким образом в 16 лет можно получить
> высшее образование?

а я ВУНДЕРКИНДЕР :)

Проггер из библиотеки (2006-10-15 14:11:00) [19]
> Ну а ответы на вопрос у вас бесплатные?
> Подскажите как после нажатия на Button сделать сопровождение
> музыки.
Ещё можно помучать TMediaPlayer с закладки System.

Chort (2006-10-15 13:50:00) [20]
to Zancik ©

> Login: Zancik
> E-mail: zancik0130@mail.ru
> ICQ: 620329 (добавить)
> Реальное имя: Жан
> Дата рождения: 30.01.1990 знак зодиака: Водолей
> Домашняя страница: http://forum.tamtaram.com/portal.php
> Пол: Мужской
> Образование: высшее> Увлечения / хобби

мне вот стало интересно каким образом в 16 лет можно получить высшее образование?

Страницы: 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »