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

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

TDateTimePicker

Dmk ©   (2015-10-09 21:15:00) 

Привет! Подскажите от чего такое может быть. Обычный TDateTimePicker создается в рантайм. Назначается метод OnChange, но он принадлежит форме. Похож только формат вызова procedure DateChange(Sender: TObject); В принципе ничего страшного. Все работает, но точка останова виснет. DebugKernel виснет намертво.
В пустом, маленьком проекте все работает нормально, даже точка останова.

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, DmClasses;

type
 TForm1 = class(TForm)
   procedure DateTimePickerChange(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
 private
   { Private declarations }
   FDateTimePicker: TDmDateTimePicker;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DateTimePickerChange(Sender: TObject);
var
 s: string;
 d: TDate;

begin
  d := FDateTimePicker.Date;//<- Точка останова
 s := DateToStr(d);
 ShowMessage(s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FDateTimePicker := TDmDateTimePicker.Create(nil);
 FDateTimePicker.Parent := Self;
 FDateTimePicker.OnChange := Self.DateTimePickerChange;
 FDateTimePicker.Left := 10;
 FDateTimePicker.Top := 10;
 FDateTimePicker.Visible := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FDateTimePicker.Free;
end;

end.

---

Dmk   (2015-10-09 21:17:00) [1]

Delphi XE6

---

Наверх