Class Tip_DBzEdit (unit _ipDBxControls)

Inherits from

TEdit

Constructors


constructor Create(AOwner: TComponent);

Public declarations

ValidateEdit; FDataLink.



Functions

destructor Destroy;


procedure DoEnter;


procedure DoExit;

if ipDialogDaNe('Promjeni šifru '+FDataLink.

procedure KeyPress(var Key: Char);

______________________________________________________________________________

procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);

Protected declarations

procedure DataChange(Sender: TObject);

if (Key = #13) then begin FEditTemp := GetParentForm(Self); if(FEditTemp is TCSEZForm) then begin SendMessage(FEditTemp.

procedure DoAction;


function GetDataField: string;


function GetDataSource: TDataSource;


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure UpdateData(Sender: TObject);

FAlignment := taLeftJustify; EditMask := '';

Properties

property DataField : string

Published declarations

property DataSource : TDataSource


property SearchArray : string


Events

Variables

FCanUpdate : Boolean;


FDataLink : TFieldDataLink;


FNewText : String;


FOldText : String;


FSearchArray : string;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

ValidateEdit; FDataLink.Field.Text := Text;


Functions


destructor Destroy;


procedure DoEnter;


procedure DoExit;

if ipDialogDaNe('Promjeni šifru '+FDataLink.Field.Text+' u '+Text+' ?') then


procedure KeyPress(var Key: Char);

______________________________________________________________________________


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);

Protected declarations


procedure DataChange(Sender: TObject);

if (Key = #13) then begin FEditTemp := GetParentForm(Self); if(FEditTemp is TCSEZForm) then begin SendMessage(FEditTemp.Handle, WM_NEXTDLGCTL, 0, 0); Key := #0; end; end;


procedure DoAction;


function GetDataField: string;


function GetDataSource: TDataSource;


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure UpdateData(Sender: TObject);

FAlignment := taLeftJustify; EditMask := '';


Properties


property DataField : string

Published declarations


property DataSource : TDataSource


property SearchArray : string


Events


Variables


FCanUpdate : Boolean;


FDataLink : TFieldDataLink;


FNewText : String;


FOldText : String;


FSearchArray : string;