Вопрос

← →
Гость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 не попадает дата

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

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

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

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]

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