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

Вниз

Вопрос   Найти похожие ветки 

 
Гость22   (2005-08-10 18:01) [0]

На форме1 есть Edit1, Edit2, Edit3, На форме2 есть MonthCalendar. По событию OnClick для Edit1(2,3) открывается модально форма2. Выбираем дату и по событию OnDblClick закрываем форму2.
Вопрос. Как определить, какой Edit "вызвал" форму2, для того, чтоб вставить дату именно в этот Edit?


 
oldman ©   (2005-08-10 18:06) [1]

завести глобальную переменную. имхо...


 
stelius ©   (2005-08-10 18:09) [2]

procedure TForm1.Edit1Click(Sender: TObject);
begin
 if not (Sender is TEdit) then Exit;
 if Form2.ShowModal = mrOK then
   TEdit(Sender).Text := FormatDateTime("dd.mm.yyyy", Form2.MonthCalendar.Date);
end;


 
Гость22   (2005-08-10 18:45) [3]

спасибо!


 
Гость22   (2005-08-10 19:05) [4]

Извиняюсь. Выдает ошибку

> TEdit(Sender).Text := FormatDateTime("dd.mm.yyyy", Form2.MonthCalendar1(курсор).Date);

Курсор стоит где указано выше и пишет:
Undeclared identifier "MonthCalendar1"
")" expected but identifier "Date" found.


 
Гость22   (2005-08-10 19:35) [5]

помогите! Не знаю, что делать!!!


 
Adder ©   (2005-08-10 20:01) [6]

Код в студию


 
Гость22   (2005-08-10 20:13) [7]

Что значит?

> if Form2.ShowModal = mrOK then


 
Гость22   (2005-08-10 20:16) [8]


> procedure TForm1.Edit1Click(Sender: TObject);
> begin
>  if not (Sender is TEdit) then Exit;
>  if Form2.ShowModal = mrOK then
>    TEdit(Sender).Text := FormatDateTime("dd.mm.yyyy", Form2.MonthCalendar.Date);
> end;


Почему-то не работает. В Edit не попадает дата


 
Adder ©   (2005-08-10 20:22) [9]

Покажи код
procedure TForm2.MonthCalendar1DblClick(Sender: TObject);


 
Гость22   (2005-08-10 20:37) [10]

procedure TForm2.MonthCalendar1DblClick(Sender: TObject);
begin
 Form2.Close;
end;


 
Adder ©   (2005-08-10 20:42) [11]

procedure TForm2.MonthCalendar1DblClick(Sender: TObject);
begin
ModalResult:=MrOK;
end;

Use ModalResult to close the form when it is displayed modally.

By default, ModalResult is mrNone. (см. Help по ModalResult)


 
Гость22   (2005-08-11 12:33) [12]


> Adder ©   (10.08.05 20:42) [11]

Спасибо, большое!



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

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

Наверх





Память: 0.46 MB
Время: 0.01 c
4-1122470371
Jet
2005-07-27 17:19
2005.09.18
Преобразование координат на принтере


9-1116704296
parovoZZ
2005-05-21 23:38
2005.09.18
Вопрос по glTexGenfv


4-1122389899
alexnova
2005-07-26 18:58
2005.09.18
Управление стоп-битом в RS-232


9-1116839722
Шухрат
2005-05-23 13:15
2005.09.18
плагины unwrap3d 2.15


1-1124922791
Aleksandr.
2005-08-25 02:33
2005.09.18
Прошу обратить внимание всем, кто работает с ActionMainMenuBar





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский