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

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

как сделать? [D7, 95/98]

dera ©   (2006-02-27 17:10:00) 

На форме есть 3 эдита и напротив каждого 3 батона. Необходимо, чтоб по нажатию на первый батон появился календарь (MonthCalendar) и по двойному клику вставить дату в первый эдит. То же самое для второго батона и второго эдита. Но компонент MonthCalendar должен быть один, а не 3. Просьба не предлягать DateTimePicker.
Спасибо

---

dera   (2006-02-27 18:44:00) [1]

>clickmaker ©   (27.02.06 18:41) [14]
и Вам тоже благодарен. Заоодно чуть-чуть разобрался что такое Tag

---

azl   (2006-02-27 18:44:00) [2]

var
 Form1: TForm1;
 Bt1, Bt2: boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 MonthCalendar1.Visible := true;
 Bt1 := true; Bt2 := False;
end;

procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
begin
 if Bt1 then
    Edit1.Text := DateToStr(MonthCalendar1.Date);
 if Bt2 then
    Edit2.Text := DateToStr(MonthCalendar1.Date);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 MonthCalendar1.Visible := true;
 Bt1 := False; Bt2 := true;
end;

---

dera   (2006-02-27 18:41:00) [3]

>novice_man ©   (27.02.06 18:32) [10]
огромное спасибо!

---

clickmaker   (2006-02-27 18:41:00) [4]

сначала кнопкам даем Tag от 1 до 3

procedure TForm1.ButtonClick(Sender: TObject); // для всех 3
begin
MonthCalendar.Tag := TButton(Sender).Tag;
MonthCalendar.Visible := true;
end;

procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
var Edit: TEdit;
begin
  Edit := FindComponent('Edit' + IntToStr(TMonthCalendar(Sender).Tag));
  if (Edit <> nil) then Edit.Text := DateToStr(TMonthCalendar(Sender).Date);
end;

---

novice_man   (2006-02-27 18:40:00) [5]

novice_man ©   (27.02.06 18:34) [11]
TEdit(Sender).Text := DateToStr(MonthCalendar1.Date);

---

novice_man   (2006-02-27 18:36:00) [6]

Расставь в кнопках tag(1,2 ... 5)
и обработчик OnClick теперь выглядет так:
procedure TForm1.Button1Click(Sender: TObject);
begin
 MonthCalendar1.Visible := true;
 MonthCalendar1.Tag := TButton(Sender).Tag;
end;

---

novice_man   (2006-02-27 18:34:00) [7]

novice_man ©   (27.02.06 18:32) [10]
TEdit(Sender).Text := DateToStr(TMonthCalendar(Sender).Date);
То есть:
TEdit(Sender).Text := DateToStr(TMonthCalendar.Date);

---

novice_man   (2006-02-27 18:32:00) [8]

procedure TForm1.Button1Click(Sender: TObject);
begin
MonthCalendar1.Visible := true;
MonthCalendar1.Tag := 1;
end;

procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
begin
 MonthCalendar1.Visible := false;
 case MonthCalendar1.Tag of
    1: Sender := Edit1;
    2: Sender := Edit2;
 end;
TEdit(Sender).Text := DateToStr(TMonthCalendar(Sender).Date);
end;

Не единственный вариант.

---

azl   (2006-02-27 18:31:00) [9]

А какие собственно говоря проблемы?

procedure TForm1.Button1Click(Sender: TObject);
begin
 MonthCalendar1.Visible := true;
end;

procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
begin
 Edit1.Text := DateToStr(MonthCalendar1.Date);
end;

Button2 - Events - OnClick - Button1Click

---

dera   (2006-02-27 18:22:00) [10]

и что можна сделать?

---

novice_man   (2006-02-27 18:18:00) [11]

dera   (27.02.06 18:11) [6]
Потому, что у TObjectнет поля tag/

---

dera   (2006-02-27 18:11:00) [12]

>TEdit(Sender.Tag).Text := TMonthCalendar(Sender).Date;

выдает - Undeclared identifier: 'Tag'

---

clickmaker   (2006-02-27 17:57:00) [13]

MonthCalendar1.Tag := integer(Edit1);

при обработке щелчка на календаре
TEdit(Sender.Tag).Text := TMonthCalendar(Sender).Date;

---

dera   (2006-02-27 17:55:00) [14]

>DesWind ©   (27.02.06 17:41) [3]
совершенно верно

---

DesWind   (2006-02-27 17:41:00) [15]

Как-нибудь дать знать календарю в какой едит вставлять значение. Ведь, насколько я понял вставлять значение надо по двойному щелчку по календарю?

---

dera   (2006-02-27 17:26:00) [16]

Вопрос в том, как такое организовать? А точнее, что писать тут:
procedure TForm1.Button1Click(Sender: TObject);
begin
 MonthCalendar1.Visible:=true;
 ??????????
end;

---

umbra   (2006-02-27 17:13:00) [17]

а где знак вопроса? да и сам вопрос. :)

---

Наверх