Недавно добавленные исходники

•  3D Designer  114

•  Sik Screen Capture  95

•  Patch Maker  83

•  Айболит (remote control)  99

•  ListBox Drag & Drop  79

•  Доска для игры Реверси  1 345

•  Графические эффекты  90

•  Рисование по маске  67

•  Перетаскивание изображений  70

•  Canvas Drawing  77

•  Рисование Луны  147

•  Поворот изображения  56

•  Рисование стержней  49

•  Paint on Shape  44

•  Генератор кроссвордов  57

•  Головоломка Paletto  71

•  Теорема Монжа об окружностях  108

•  Пазл Numbrix  53

•  Заборы и коммивояжеры  81

•  Игра HIP  61

•  Игра Go (Го)  48

•  Симулятор лифта  52

•  Программа укладки плитки  54

•  Генератор лабиринта  96

•  Проверка числового ввода  44

•  HEX View  98

•  Физический маятник  100

•  Задача коммивояжера  127

•  Автомобильная пробка  51

•  Квадратные сетки из слов  45

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Очистить дату в TDateTimePicker



Оформил: DeeCo

{ 
 Use the DateTime_SetFormat API macro (put CommCtrl in the uses clause) to set 
 the date to blank or a message. 

 Then in the DateTimePicker OnCloseUp event handler set the format to what you 
 want when a date has been selected, and the DTP will show the selected date. 

 Attach an OnClick handler if you want it to open when you 
 click on the edit control. 
}

 { 
 Verwende das DateTime_SetFormat API Makro von der CommCtrl Unit, um den TDateTimePicker 
 anfangs leer anzuzeigen oder um einen beliebigen String zu setzen. 

 Wenn das OnCloseUp Ereignis vom TDateTimePicker aufgerufen wird, kannst du ein 
 beliebiges Datums-Format setzen und der DateTimePicker zeigt es dann an. 

 Damit man mit einem Click auf das Edit-Control den TDateTimePicker цffnen kann, kann man 
 zusдtzlich einen OnClick Handler hinzufьgen, wo man dann den TDateTimePicker цffnet. 
}

 uses
   CommCtrl;

 var
   FDTMDateEmpty: Boolean;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   DateTime_SetFormat(DateTimePicker1.Handle,  '''Choose a date''');
   FDTMDateEmpty := True;
 end;

 procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
 begin
   DateTime_SetFormat(DateTimePicker1.Handle,  PChar('dd.MM.yy'));
 end;

 procedure TForm1.DateTimePicker1Click(Sender: TObject);
 begin
   if FDTMDateEmpty then
   begin
     DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0);
     DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0);
   end;
 end;

 procedure TForm1.DateTimePicker1Change(Sender: TObject);
 begin
   FDTMDateEmpty := False;
 end;







Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter