Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.25;
Скачать: CL | DM;

Вниз

Работа с ListBox из другой формы   Найти похожие ветки 

 
Erick ©   (2005-11-28 20:34) [0]

Вообщем ситуация следующая. Есть две формы. На первой форме находится ListBox1 и кнопка. При создании этой формы ListBox заполняется(в моём случае криптопровайдерами уст. в системе). Как только я выбрал из списка нужную мне строку, активизируется кнопка, и после её нажатия создаётся модальное окно (Form2), которое должно содержать свойства выбранного мной криптопровайдера.
По идее свойства должны уже вписаны, как только это окно создастся. Но здесь есть проблема. Насколько я понял, в Delphi все окна создаются одновременно. Поэтому если я буду заполнять свойства в TForm2.FormCreate, то я не смогу узнать какую строку ListBox1 выбрал пользователь. Но свойства, естественно, должны зависить от выбранного криптопровайдера.
Как решить эту проблему? Думаю многие с ней сталкивались.
Заранее благодарен.


 
Vlad ©   (2005-11-28 20:47) [1]


> Delphi все окна создаются одновременно

Это не так. По крайней мере последовательно.
Подозреваю, нужно просто убить из .dpr создание второй формы (которая модальная) и создавать ее самому. Так, например:

procedure TForm1.Button1Click ....
begin
with TForm2.Create(Self) do
try
  ShowModal;
finally
  Free;
end;
end;

тогда из 2-й формы можешь получить доступ к первой. К примеру, так:
procedure TForm2.FormCreate
begin
TForm1(Owner).ListBox1... // тут обращаешься к выбранной записи.
end;


 
Alexandr Bydantcev ©   (2005-11-28 21:19) [2]

Vlad написал все правильно.
Нужно в dpr найти создание формы: что-то типа  Application.CreateForm(TForm1, Form1);
Удалить эту ерунду. И далее по тексту.



Страницы: 1 вся ветка

Текущий архив: 2005.12.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
2-1133768749
worldmen
2005-12-05 10:45
2005.12.25
Открытие файла по сети.


2-1133793502
Saimon
2005-12-05 17:38
2005.12.25
Плоский стиль контролов


2-1134291163
PAVIA
2005-12-11 11:52
2005.12.25
Числа размером 64бита.


2-1133880654
Максим
2005-12-06 17:50
2005.12.25
Помогите перевести код из Turbo Pascal в Delphi.


14-1133597407
Knight
2005-12-03 11:10
2005.12.25
Архивация файлов с русскими именам в TurboPower Abbrevia...