Форум: "Начинающим";
Текущий архив: 2017.06.25;
Скачать: [xml.tar.bz2];

Вниз

TDateTimePicker   Найти похожие ветки 

← →
Dmk ©   (2015-10-09 21:15) [0]

Привет! Подскажите от чего такое может быть. Обычный 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) [1]

Delphi XE6

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2017.06.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.001 c