Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.05.2011, 16:36
Elza Elza вне форума
Новичок
 
Регистрация: 14.05.2011
Сообщения: 57
Репутация: 10
Радость Текст в Listbox

Скажите как добавить строчку в Listbox, предварительно вызвав MessageBox в котором спросить какой текст добавить=)
Ответить с цитированием
  #2  
Старый 15.05.2011, 16:41
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

listbox1.Items.Add(inputbox('Название бокса','элемен','Значение по умолчанию'));
Ответить с цитированием
  #3  
Старый 15.05.2011, 16:56
Elza Elza вне форума
Новичок
 
Регистрация: 14.05.2011
Сообщения: 57
Репутация: 10
По умолчанию

пасибки, вот только при отмене тоже добавляется
Ответить с цитированием
  #4  
Старый 15.05.2011, 17:10
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от Elza
пасибки, вот только при отмене тоже добавляется
скажу лишь только то, что ф-ия inputbox возвращает вводимую строку, при отмене она возвращает пустую строку.
Дальше попробуй сам догадаться...
Ответить с цитированием
  #5  
Старый 15.05.2011, 17:36
Elza Elza вне форума
Новичок
 
Регистрация: 14.05.2011
Сообщения: 57
Репутация: 10
По умолчанию

я поняла вроде! вместо "Значение по умолчанию" пустой текст=)
Ответить с цитированием
  #6  
Старый 15.05.2011, 18:17
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от Elza
я поняла вроде! вместо "Значение по умолчанию" пустой текст=)
ииииииииииииииииииии..........????
Ответить с цитированием
  #7  
Старый 15.05.2011, 22:01
Человек_Борща Человек_Борща вне форума
Новичок
 
Регистрация: 17.09.2010
Адрес: Беларусь, г. Минск
Сообщения: 58
Версия Delphi: 7, 2010,XE
Репутация: 10
По умолчанию

ТС, проще пареной репы:
Код:
begin
//Диалог. сообщение скнопками ДА и НЕТ
//Если нажата кнопка ДА
if  MessageBox(Application.Handle,'Желаете добавить в listbox строку из Edit1.Text?','Сообщение',MB_YESNO or MB_ICONQUESTION) = IDYES then
 ListBox1.Items.add(Edit1.text); 
//Иначе ничего не происходит(Сообщение closed <=> отмене действия).
end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:38.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025