Скачать: CL | DM;

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

← →
Гость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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c