| Class Tip_DBzEdit (unit _ipDBxControls) |
TEdit
| Constructors |
constructor Create(AOwner: TComponent);ValidateEdit; FDataLink.
| Functions |
destructor Destroy;
procedure DoEnter;
procedure DoExit;
procedure KeyPress(var Key: Char);
procedure Loaded;
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure DataChange(Sender: TObject);
procedure DoAction;
function GetDataField: string;
function GetDataSource: TDataSource;
procedure SetDataField(const Value: string);
procedure SetDataSource(Value: TDataSource);
procedure UpdateData(Sender: TObject);| Properties |
property DataField : string
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 : stringPublished declarations
property DataSource : TDataSource
property SearchArray : string| Events |
| Variables |
FCanUpdate : Boolean;
FDataLink : TFieldDataLink;
FNewText : String;
FOldText : String;
FSearchArray : string;