|
Тема
|
DateTimePicker, как да му скрия датата :)
|
|
Автор |
NikB (любопитен) |
Публикувано | 21.10.04 19:08 |
|
Трябва да сложа един tDateTimePicker, но когато не е въведена дата трябва да е празен (може би).
Попрочетох (без да се престаравам :), не намерих решение и пробвах да сменя цвета на шрифта - не стана :)
Та някой ако знае как да го направя - ще съм благодарен.
Познавам доста Ex DateTime, но в този проект (за сега) не желая да слагам допълнителни компоненти, може би защото са в пакети (напр. ABF), а фрии-то са винаги специфични и/или бъгави.
PS
имах идея и да променя цвета на фона, но не ми хареса.
| |
Тема
|
Re: DateTimePicker, как да му скрия датата :)
[re: NikB]
|
|
Автор |
andrew_nikoloff (void) |
Публикувано | 21.10.04 19:30 |
|
Плякни му един панел отгоре
| |
|
Ами да - и ще му остава бутона да се вижда, за да се редактира.
Много хубаво, благодаря!
| |
|
До този пост се мислех за голяма работа - вече съм комплексар
| |
Тема
|
Re: Стана
[re: NikB]
|
|
Автор | Sury (Нерегистриран) |
Публикувано | 21.10.04 22:21 |
|
procedure TForm1.Button1Click(Sender: TObject);
var
OldFrmt : String ;
begin
OldFrmt := DateTimePicker1.Format ; //запазваме стария формат
DateTimePicker1.Format := ''''''; // форматираме с празен стринг
DateTimePicker1.Format := OldFrmt ; //при нужда отново връщаме формата
end;
Хей и да не вземеш съвсем да се комплексираш сега :)
| |
Тема
|
:)
[re: Sury]
|
|
Автор |
NikB (любопитен) |
Публикувано | 21.10.04 22:57 |
|
На там отива работата
| |
Тема
|
Отдъхнах си
[re: Sury]
|
|
Автор |
NikB (любопитен) |
Публикувано | 21.10.04 23:28 |
|
Ти така ли го правиш?
Моето Делфи няма Format на tDateTimePicker - има DateFormat: TDTDateFormat = (dfShort, dfLong);
| |
Тема
|
Re: Отдъхнах си
[re: NikB]
|
|
Автор | Sury (Нерегистриран) |
Публикувано | 22.10.04 19:51 |
|
Мда , явно ползваш Delphi 5.0 или по-старо , имаш право да си отдъхнеш :)
Все пак можеш да ползваш това, или просто да си разшириш класа TDateTimePicker
uses CommCtrl ;
procedure TForm1.Button1Click(Sender: TObject);
begin
SetFormat('''');
end;
procedure TForm1.SetFormat(Frmt: String);
begin
SendMessage(DateTimePicker1.Handle, DTM_SETFORMAT, 0 , Integer(PChar(Frmt)));
end;
Успех.
| |
Тема
|
Re: Отдъхнах си
[re: Sury]
|
|
Автор | Sury (Нерегистриран) |
Публикувано | 22.10.04 20:15 |
|
В случай че Делфито ти не е чувало за DTM_SETFORMAT :
const
DTM_SETFORMAT = $1005;
| |
Тема
|
Благодаря
[re: Sury]
|
|
Автор |
NikB (любопитен) |
Публикувано | 23.10.04 10:16 |
|
| |
|
|
|
|