|
|
|
| | | | | | | | |  |
| 
| Code source : unité LRJ_ModifDateTime | |
| |
| | |
|
Description : cette unité contient l'objet LRJ_TModifDateTime qui permet l'ouverture modale
ou non modale d'une fenêtre permettant la modification de la date et de l'heure.
L'unité est livrée avec une application de démonstration (
voir description plus loin
) qui utilise les fonctionnalités mises
en oeuvre dans l'unité. Les codes de l'application
sont livrés avec l'unité pour illustrer comment utiliser les fonctionnalités de l'objet de
cette unité.
Déclarations publiques de l'unité
I
Télécharger l'application de démonstration
I
Exemples d'utilisations
Utilise les unités : Classes, Controls, SysUtils, Forms, StdCtrls et ComCtrls.
Version : 1.1 du 03.05.2009
Auteur : Laurent Hède
Copyright : LorenJo
Nombre de lignes : 238
Réalisée sous : Delphi 6
Systèmes compatibles : Tous
Prix : 52.00 € H.T.
Déclarations publiques de l'unité :
unit LRJ_ModifDateTime;
interface
uses
classes,
Controls,
SysUtils,
Forms,
StdCtrls,
ComCtrls;
type
//------------OBJET---------------------------
LRJ_TModifDateTime = class(TCustomForm)
..........
function IfChangeDate: boolean;
function IfChangeTime: boolean;
function IfChangeDateTime: boolean;
property OnValid: TNotifyEvent read MOOnValid write MOOnValid;
property OnCancel: TNotifyEvent read MOOnNul write MOOnNul;
property Date: TDate read GetDate write SetDate;
property Time: TTime read GetTime write SetTime;
property CaptionForm: string read GetCaptionForm write SetCaptionFrom;
property CaptionNul: string read GetCaptionNul write SetCaptionNul;
property CaptionValid: string read GetCaptionValid write SetCaptionValid;
end; //-----------FIN--------------------------
|
Application de démonstration
A l'ouverture, l'application se charge avec la date et l'heure système. Pour ouvrir
la fenêtre de modification, cliquer sur "Change Modal" ou "Change non modal". "Change Modal"
bloque l'exécution du programme jusqu'à la fermeture de la fenêtre de modification alors
que "Change non modal" permet l'ouverture de la fenêtre de modification sans bloquer l'exécution
du programme. Une fois la fenêtre ouverte, saisir des modifications puis cliquer sur "Valider"
ou cliquer sur "Annuler".
Exemples d'utilisations
Utilisation de le fenêtre de modification date et time de manière modale
var
zModifDateTime: LRJ_TModifDateTime;
begin
zModifDateTime := LRJ_TModifDateTime.create;
zModifDateTime.Date := MODate;
zModifDateTime.Time := MOTime;
if zModifDateTime.ShowModal = mrOK then
begin
if zModifDateTime.IfChangeDateTime then
begin
MODate := zModifDateTime.date;
MOTime := zModifDateTime.Time;
Edit1.Text := FormatDateTime('c', MODate + MOTime);
end;
end;
zModifDateTime.free;
end;
|
Utilisation de le fenêtre de modification date et time de manière non modale
begin
if not assigned(MOModifDateTime) then
begin
MOModifDateTime := LRJ_TModifDateTime.Create;
MOModifDateTime.OnValid := OnValid;
end;
MOModifDateTime.Date := MODate;
MOModifDateTime.Time := MOTime;
MOModifDateTime.Show;
end;
procedure TForm1.OnValid(Sender: TObject);
begin
if MOModifDateTime.IfChangeDateTime then
begin
MODate := MOModifDateTime.date;
MOTime := MOModifDateTime.Time;
Edit1.Text := FormatDateTime('c', MODate + MOTime);
end;
end;
|
Vous n'avez pas trouvé d'exemple répondant à votre problématique ?
Cliquez sur ce lien.
|
|
|
 | |  |
|
|
