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

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

Вопрос [D7, Win95/98]

Гость22 ©   (2005-08-10 18:01:00) 

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

---

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

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

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

---

Adder   (2005-08-10 20:42:00) [2]

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-10 20:37:00) [3]

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

---

Adder   (2005-08-10 20:22:00) [4]

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

---

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

> 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 не попадает дата

---

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

Что значит?

> if Form2.ShowModal = mrOK then

---

Adder   (2005-08-10 20:01:00) [7]

Код в студию

---

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

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

---

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

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

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

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

---

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

спасибо!

---

stelius   (2005-08-10 18:09:00) [11]

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;

---

oldman   (2005-08-10 18:06:00) [12]

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

---

Наверх