Картинка-Button

← →
zancik © (2006-10-13 16:09) [0]

Уважаемые мастера подскажите как любую картинку привратить в Button.
Благодарю!

← →
Elen © (2006-10-13 16:15) [1]

> zancik

У Timage есть событие OnClick. Можно им воспользоваться.

← →
Zancik © (2006-10-13 16:19) [2]

> У Timage есть событие OnClick. Можно им воспользоваться.

Можно чёток поподробнее а то я еще начинаючий.

← →
Elen © (2006-10-13 16:22) [3]

> Zancik

Растягиваеш на форме компонент Timage. Вставляеш в него картинку. Описываеш событие OnClick этого Image. По клику на картинке выполнятся действия прописанные в OnClick : например

procedure TForm1.Image1Click(Sender: TObject); begin caption:= "Clicked movie"; end;

← →
Zancik © (2006-10-13 16:28) [4]

А событие OnClick искать в инспекторе?

← →
Elen © (2006-10-13 16:31) [5]

> Zancik

Да

← →
Zancik © (2006-10-13 16:48) [6]

Всё спасиб! получилось :) А где найти какие нибуть стрелочки палочки....

← →
Elen © (2006-10-13 16:53) [7]

> Zancik

например в <Где_то_в_недрах_твоего_жесткого_диска>\Delphi\Common Files\Borland Shared\Images\.
Есть еще в офисе

← →
Zancik © (2006-10-13 16:56) [8]

Ладно пасиб сам наресую,еслиб Вы знали скока у меня еще вопросов но так нехочеться Вас задерживать на целый день )

← →
Zancik © (2006-10-13 17:13) [9]

Я вот хочу написать прогу для отправки мгновенных емайлов типо маил ру агента скажите мне легко это сделать? Или есть какието исходники для этого?

← →
wl © (2006-10-13 19:03) [10]

што за сгновенные емайлы?

← →
Плохиш © (2006-10-13 19:06) [11]

> Zancik © (13.10.06 17:13) [9]

> скажите мне легко это сделать?

Тебе очень сложно, а ты ещё и читать ничего не желаешь.

← →
Ketmar © (2006-10-13 19:09) [12]

мой телепатор подсказывает, что автор хочет instant messaging сделать. но я телепаторам не доверяю из принципа. %-)

← →
wl © (2006-10-13 19:23) [13]

Ketmar, тоже самое приходит в голову, но вдруг я не знаю каких-то особенностей майлру агента, с помощью которых можно отсылать почту из этого оранжевого окошка на любое мыло...

← →
wl © (2006-10-13 19:28) [14]

вообще, затея довольно интересная - чтобы текст поступившего мыло как инстант мессидж появился в окне... со ссылками на аттачи, если они есть...
правда сам майл ру никогда такого не сделает - они же за счет рекламы на своем веб-интерфейсе существуют...

← →
Ketmar © (2006-10-13 19:32) [15]

>[14] wl(c) 13-Oct-2006, 19:28
>правда сам майл ру никогда такого не сделает - они же за
>счет рекламы на своем веб-интерфейсе существуют...
кто им мешает гадить рекламой в своём агенте? %-)

← →
wl © (2006-10-13 20:03) [16]

справедливо... в смс через агента они кажется так и делали раньше... трафик для клиентов не сильно увеличивает, а если ее сделать полупрозрачной, то и клиентов напрягать не будет. Но к сожалению, программисты из майл ру не желают прислушиваться, так что придется самостоятельно реализовывать такой функционал, особенно он бы пригодился на сотовых (ммм, мечта просто...). Реализовывать без рекламы конечно :)
в любом случае, это тема отдельного разговора, с картинго-баттонами слабо связанная.

← →
Zancik © (2006-10-13 23:11) [17]

Просто у меня есть свой форум и я хочу к нму сделать какой нибуть клиент типо Аськи, может кто поможет или чёнить посоветует я бы был очень благодарин.

← →
Ketmar © (2006-10-13 23:46) [18]

для начала -- подружиться с русским языком. оно всегда полезно.
потом решить, что именно нужно. потом подумать. вообще, всё можно сделать простыми HTTP-запросами время от времени. и сервером, который их обрабатывает.
а можно и отдельный протокол.
много чего можно.

← →
Zancik © (2006-10-14 00:00) [19]

Извиняйте за русский язык я просто человек нерусский :(
Ты мне сможешь помочь? вообще сделать такую прогу на подобе ICQ клиента или вообще в Аське есть такая вещь как MULTI CHAT вот это мне самое больше подходит так вот человеку который хорошо умеет работать с Делфи эту прогу написать легко? Скока займёт времени?

← →
Ketmar © (2006-10-14 06:11) [20]

я не знаю, что есть "multichat". только подозреваю. более того: судя по поставленой задаче, писать надо не только клиентскую часть, но и серверную. "помочь" -- это вряд ли (денег не хватит). а вот поотвечать на разумные вопросы -- это вполне. подчёркиваю -- на разумные вопросы. "а как написать" таковыми не считаются. %-)

← →
Zancik © (2006-10-14 15:05) [21]

Я думал тут дружный народ как помочь так сразу разговоры насчёт денег пошли, аедь вы такиепо началу тож были, чайнику помочь неможете ну спасиб вам на этом :)

← →
Anatoly Podgoretsky © (2006-10-14 15:12) [22]

Ты заказал работу, работу надо оплачивать, если не хочешь, то делай сам.

← →
Zancik © (2006-10-14 15:37) [23]

Ну а ответы на вопрос у вас бесплатные?
Подскажите как после нажатия на Button сделать сопровождение музыки.
Благодарю!

← →
Palladin © (2006-10-14 17:49) [24]

PlaySound("c:\sound.wav",0,SND_FILENAME)

← →
Zancik © (2006-10-15 13:22) [25]

> Palladin © (14.10.06 17:49) [24]
> PlaySound("c:\sound.wav",0,SND_FILENAME)

А чуток поподробней можно?
Куда имено прописывать эту строку?

← →
Chort © (2006-10-15 13:35) [26]

> Куда имено прописывать эту строку?

в тудыть:
procedure TForm1.Button1Click(Sender: TObject); begin /////////////////////////////////// end;

← →
Chort © (2006-10-15 13:50) [27]

to Zancik ©

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

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

← →
Проггер из библиотеки (2006-10-15 14:11) [28]

> Ну а ответы на вопрос у вас бесплатные?
> Подскажите как после нажатия на Button сделать сопровождение
> музыки.
Ещё можно помучать TMediaPlayer с закладки System.

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

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

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

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

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

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

end.

развод?

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

всмысле

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

> развод?

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

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

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

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

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

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

Тоесть сказать что я плохо сделал там что неправильно написал исправт плизз

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

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

а если нормально, то
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;

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

Картинка-Button Найти похожие ветки