TDateTimePicker в StringGrid

Previous  Top  Next

    
 

 

 

Code:

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, ComCtrls;

 

type

TForm1 = class(TForm)

   StringGrid1: TStringGrid;

   DateTimePicker1: TDateTimePicker;

   procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;

     var CanSelect: Boolean);

   procedure FormCreate(Sender: TObject);

   procedure StringGrid1Exit(Sender: TObject);

   procedure DateTimePicker1Exit(Sender: TObject);

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,

ARow: Integer; var CanSelect: Boolean);

var

D: TDateTime;

begin

DateTimePicker1.Visible := True;

DateTimePicker1.BoundsRect := StringGrid1.CellRect(ACol, ARow);

D := DateTimePicker1.DateTime;

TryStrToDateTime(StringGrid1.Cells[ACol, ARow], D);

DateTimePicker1.DateTime := D;

DateTimePicker1.SetFocus;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

DateTimePicker1.Parent := StringGrid1;

DateTimePicker1.Visible := False;

DateTimePicker1.OnExit := DateTimePicker1Exit;

 

StringGrid1.OnSelectCell := StringGrid1SelectCell;

end;

 

procedure TForm1.StringGrid1Exit(Sender: TObject);

begin

DateTimePicker1.Visible := False;

end;

 

procedure TForm1.DateTimePicker1Exit(Sender: TObject);

begin

with StringGrid1 do

   Cells[Col, Row] := DateTimeToStr(DateTimePicker1.DateTime);

end;

 

end.

 

Âçÿòî èç http://forum.sources.ru

Àâòîð: Smike

©Drkb::00389