Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Кнопка на новую форму.


m-kirill-2003 ©   (2006-10-08 06:54:00) 

Помогите, оч. надо.
Требуется на форму1 вставить кнопку, которая будет открывать форму2 с данными, которые были получены из формы1. Форма1 д.б. недоступна, пока открыта форма2.
Я на Вас надеюсь.


Проггер из библиотеки   (2006-10-08 15:38:00) [1]

> [8]
Молодец! Насчёт примера я как-то не подумал. Можешь ещё добавить сортировку, на всякий случай.

P.S. Будут вопросы - обращайся...


Первокласник вася   (2006-10-08 15:24:00) [2]

Держи примерчкик! Сам изучал эту тему этим летом :)

procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList; //переменная с которой будем работать
begin
 List:= TstringList.Create; //объя\вляем создаем список
 List.Add('раз'); //заполняем список - представь себе чт это массив
 List.Add('два');
 List.Add('три');
 List.Add('четыре');
 List.Add('пять');
 ListBox1.Items.AddStrings(List); //вставь содержимое в компонент
 List.Free; //когда не нужен список - убери рабочее место
end;


Percent   (2006-10-08 15:20:00) [3]

Еще вопросик.
Работаю с элементом Combobox и требуется, что бы списком доступных значений являлся массив. Как сделать?


Спрашивал ведь уже:

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1160290908&n=18


Проггер из библиотеки   (2006-10-08 15:10:00) [4]

Массив, не массив - TStringList. Создаём, заполняем, сортируем (если надо), пишем ComboBox.Items.Assign(OurStringList), StringList уже можно освобождать.


m-kirill-2003   (2006-10-08 10:53:00) [5]

Еще вопросик.
Работаю с элементом Combobox и требуется, что бы списком доступных значений являлся массив. Как сделать?


m-kirill-2003   (2006-10-08 08:06:00) [6]

Огромное спасибо


mfender   (2006-10-08 07:58:00) [7]

if ... then Exit;


m-kirill-2003   (2006-10-08 07:54:00) [8]

А есть команда, которая при выполнении определенного условия выходит из процедуры?


mfender   (2006-10-08 07:10:00) [9]

Form2.ShowModal;


Наверх

Титульная страница Поиск, карта сайта Написать письмо