|
| Опубликовано 18.03.2011 17:14 (14 лет назад) # |
Помогите мне пожалуйста! Как мне создать одиночный чат в Delphi 7? Чтобы было понятнее объясню - этот чат должен быть БЕЗ ПОДКЛЮЧЕНИЯ К ИНТЕРНЕТУ. Короче говоря на сообщения отвечают боты. Если вы можете, то дайте ссылки на исходники к таким программам.
Вот сдесь ссылка на эту программу
http://cahekp.110mb.com/gamef.php
Программа называется SanSOFT Чат v2.0
Также можно посмотреть эту игру
Пыргаммист v1.0 - если в этой игре подключиться к инэту и зайти на сайт www.chat.ru - то будет нечто похожее.
Но всё-таки меня больше интересует 1 программа.
Помогите пожалуйста!! |
|
|
|
|
| Опубликовано 18.03.2011 17:45 (14 лет назад) # |
http://dron.deeprosoft.com/index_ru
тут ищи, когда то дрон делал типа того... |
|
|
|
|
| Опубликовано 19.03.2011 05:59 (14 лет назад) # |
| Спасибо - посмотрю |
|
|
|
|
| Опубликовано 19.03.2011 06:52 (14 лет назад) # |
| Очень хороший пример! Большое спасибо! Еще что-нибудь есть? Желательно пару-тройку примеров. |
|
|
|
|
| Опубликовано 19.03.2011 17:26 (14 лет назад) # |
Еше одна проблема
Собираюсь открывать прогу из проги
Всмысле вот на Form1 я кинул MainMenu - замутил заголовок Софт - При наводке на софт появляется внизу Бот - при нажатии на Бот должна открыться Form2. Form2 и Unit2 прописаны нормально. но не работает что-то. Что я неправильно сделал? |
|
|
|
Древний организм
|
| Опубликовано 21.03.2011 07:11 (14 лет назад) # |
| Ошибка в 13й строке. |
|
|
|
|
| Опубликовано 21.03.2011 14:55 (14 лет назад) # |
Ошибок там много
Лучше так.
Вот я создал проэкт. Кинул Button1 на Form1.
Какой код нужно прописать чтобы создалась Form2?
Я пробовал этот но у меня не работает
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:= TForm2.Create(Application);
Form2.Caption:='ABC';
Form2.Show;
end;
end.
Больше всего бесит что как только я написал точку после TForm2 появляется Pascal ошибка.
Я пробовал и так и без T и без Form2:= и Form2.create - не хочется ему. |
|
|
|
|
| Опубликовано 21.03.2011 15:46 (14 лет назад) # |
procedure TForm1.Button1Click(Sender: TObject);
var
frm: TForm;
begin
frm := TForm.Create(Self);
with TLabel.Create(frm) do
begin
Left := 10;
Top := 10;
Caption := 'Ololo';
Parent := frm;
end;
frm.Show;
end;
ну или если форму создаешь не динамически, то:
form2.Show; или form2.ShowModal;
редакция от Hexman, 21.03.2011 15:49 |
|
|
|
|
| Опубликовано 22.03.2011 10:18 (14 лет назад) # |
Поугадываю и я.
NikoXIII написал:
Form2 и Unit2 прописаны нормально.
Зачем тогда делать это?
NikoXIII написал:
Form2:= TForm2.Create(Application);
или из файла проекта были выкинуты следующие строчки?
Application.CreateForm(TForm2, Form2);
В юните первой формы добавьте uses Unit2;
В обработчике нажатия на пункт меню - Form2.Show;
---добавлено---
NikoXIII написал:
Больше всего бесит что как только я написал точку после TForm2 появляется Pascal ошибка.
Скорее всего Unit1 ничего не знает о существовании Form2. Как я уже писал выше "В юните первой формы добавьте uses Unit2;"
редакция от magician, 22.03.2011 10:22 |
|
|
|
|
| Опубликовано 25.03.2011 16:32 (14 лет назад) # |
Hexman написал:
procedure TForm1.Button1Click(Sender: TObject);
var
frm: TForm;
begin
frm := TForm.Create(Self);
with TLabel.Create(frm) do
begin
Left := 10;
Top := 10;
Caption := 'Ololo';
Parent := frm;
end;
frm.Show;
end;
ну или если форму создаешь не динамически, то:
form2.Show; или form2.ShowModal;
Блин тьфу я не то написал (хотя тоже это пригодится). Я хотел написать чтобы форма вызвалась. Извините. Я немного другое имел ввиду - на 1 форме кнопка - она открывает 2 форму на которой 2 кнопки с определенной функцией
Можно ли создав новую форму Form2 вызвать её с помощью кнопки на 1 форме?
редакция от NikoXIII, 25.03.2011 16:33 |
|
|
|
|
| Опубликовано 25.03.2011 22:13 (14 лет назад) # |
Можно ли создав новую форму Form2 вызвать её с помощью кнопки на 1 форме?
Запутал..Расскажи подробней, какая задача? :) Я тоже нуб еще тот, спрашивай-не бойся ) |
|
|
|
|
| Опубликовано 26.03.2011 11:08 (14 лет назад) # |
В общем смотри
Делаю прогу в которой есть почти всё
В неё я встраиваю проги
Итак начнем: На форме лежит MainMenu - разукрасим его как-нибудь так:
Первое в меню Софт - при наведении появляется контекстное меню
в нем написано Видеоплеер, а ниже аудио плеер (думаю поймешь меня).
Затем нажимаем File=>New=>Form - разукрашиваем её компонентами кодами под например видео-плеер.
Сложность в том чтобы при нажатии на Видео открывалась эта чертова форма!
Не создать а именно показать существующюю.
редакция от NikoXIII, 26.03.2011 11:14 |
|
|
|
|
| Опубликовано 26.03.2011 18:56 (14 лет назад) # |
форма уже в проекте? тогда просто
имя формы.show; например Form2.Show; - просто покажет второе окно
либо Form2.ShowModal; - вызовет окно модально. модально - это так, что оно будет поверх основной (первой) формы, и до нее (до первой формы) никак не добраться, не закрыв второе окно.
редакция от exile, 26.03.2011 18:57 |
|
|
|
|
| Опубликовано 29.03.2011 17:36 (14 лет назад) # |
ВСЁ! МЕНЯ ЭТО УЖЕ БЕСИТ!
НЕ ВЫХОДИТ! Я ФОРМ2 ДОБАВЛЯЛ И В var И БЕЗ НЕГО И Черт блин мне так дельфи не освоить.( |
|
|
|
|
| Опубликовано 29.03.2011 17:56 (14 лет назад) # |
| покажи исходник |
|
|
|
|
| Опубликовано 04.04.2011 12:32 (14 лет назад) # |
| http://depositfiles.com/ru/files/0ii41ush3 |
|
|
|
|
| Опубликовано 04.04.2011 12:48 (14 лет назад) # |
| http://hexman.net.ru/tmp/form2show.zip |
|
|
|
|
| Опубликовано 04.04.2011 13:20 (14 лет назад) # |
Огромное спасибо
Простите нуба |
|
|
|
|
| Опубликовано 04.04.2011 18:08 (14 лет назад) # |
По теме топика: начать отсюда :http://ru.wikipedia.org/wiki/Виртуальный_собеседник
Ключевые слова для гугла: чат бот
По delphi:
1) скачать, прочитать и понять любую книгу по Delphi "для начинающих" типа такой http://delphistudio.ru/skachat-knigi-uchebniki-delphi/4-uchebnik-po-delphi-7-dlya-nachinayushhix-1.0
.html
2) При возникновении любого вопроса, сначала посмотреть тут: http://delphiworld.narod.ru/_all_articles_.html, потом спросить у гугла.
3) ???
4) Profit
|
|
|
|