Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];

Вниз

программирование   Найти похожие ветки 

 
galina   (2002-05-07 15:22) [0]

Помогите пожалуйста чайнику по DELPHI .
Нарисовала 3 формы , одна меню и две вроде как ввод данных в зависимости от выбранного пункта меню .При трансляции 0 ошибок .
Первая форма выбирается , нажимаю на пункт меню , сообщение что событие обработано появляется , но каким образом вызвать 2 форму которая будет вводить данные не соображаю .( в USES объявила модуль , который содержит форму и ничего ) .
Не пойму как строится цепочка вызовов отдельных модулей в проекте ? Обясните по простому , кто может .


 
Виктор Щербаков   (2002-05-07 15:34) [1]

Насколько я понял - требуется появление формы в качестве диалогового окна. Можно воспользоваться методом формы ShowModal.
Т.е. в обработчике клика на пункт меню:

procedure TForm1.N1Click(Sender: TObject);
begin
if Form2.ShowModal = mrOk then...
end;


 
MBo   (2002-05-07 15:36) [2]

unit Unit1;

interface
uses ...unit2;

procedure TForm1.N21Click(Sender: TObject);//пункт меню
begin
form2.show;
form2.edit1.SetFocus;
end;
----------------------------
unit Unit2;
...
implementation
uses unit1;






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

Форум: "Основная";
Текущий архив: 2002.05.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.007 c
14-64791
Donal_Graeme
2002-04-10 10:06
2002.05.20
Kylix снова и снова :-)


3-64559
SB.John
2002-04-24 15:33
2002.05.20
InterBase 6.0


14-64780
MC TOL
2002-04-09 13:04
2002.05.20
Совпадений не бывает!... Или...???


14-64828
matt
2002-04-10 21:47
2002.05.20
...


14-64788
Roach
2002-04-08 22:44
2002.05.20
Чуваки у меня проблема!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский