support@adelavida.com  
Клипарт · Вернисаж · Конференции · Downloads · Досуг · Сайты · Чат

FAQ (Frequently Asked Questions)
<< Вернуться в конференцию Delphi
 FAQ из конференций:  3D графика Delphi Игры Политика PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
Все вопросы
<<    Delphi FAQ    >>
Dury [2003-09-15 15:23:51]
DateTimePicker
Как програмно открыть DateTimePicker в Delphi
Man in Black ® [2003-09-15 15:30:35]
Лучше всего так:
procedure TForm1.Button2Click(Sender: TObject);
var
Pos : TPoint;
begin
Pos := Mouse.CursorPos;
try
  ShowCursor(False);
  with DateTimePicker1 do begin
    Mouse.CursorPos := ClientToScreen(Point(Width - 10, 10));
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
  end
finally
  Mouse.CursorPos := Pos;
  ShowCursor(True)
end
end;


Всего просмотров: 629. За последние 24 часа: 0


Rambler's Top100       Рейтинг@Mail.ru