Class Tip_DBzEdit (unit _ipDBxControls) |
Inherits from
TEdit
constructor Create(AOwner: TComponent);
- Public declarations
ValidateEdit; FDataLink.
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 := '';
property DataField : string
Published declarations
property DataSource : TDataSource
property SearchArray : string
FCanUpdate : Boolean;
FDataLink : TFieldDataLink;
FNewText : String;
FOldText : String;
FSearchArray : string;
constructor Create(AOwner: TComponent);
Public declarations
ValidateEdit; FDataLink.Field.Text := Text;
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 := '';
property DataField : string
Published declarations
property DataSource : TDataSource
property SearchArray : string
FCanUpdate : Boolean;
FDataLink : TFieldDataLink;
FNewText : String;
FOldText : String;
FSearchArray : string;