Solved

and now? ...I have exception

Posted on 2000-03-09
1
137 Views
Last Modified: 2010-04-04
when I put a date on the theend.date and it is a same Theend.MinDate , I have exception......and Now (Sorry by my english).....


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Start: TDateTimePicker;
    TheEnd: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure StartChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.StartChange(Sender: TObject);
begin
TheEnd.MinDate:=Start.DateTime;
end;
0
Comment
Question by:chiro
1 Comment
 
LVL 10

Accepted Solution

by:
Lischke earned 100 total points
ID: 2600031
Hi chiro,

you need to set Start.Time and TheEnd.Time to a correct value (say 00:00:00).

Ciao, Mike
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Mydac connection data base issue 3 167
Working with hours 3 65
Dev Express grid collapse 2 45
Is anyone willing to have a look through this code and help debug? 25 84
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question