Allowing only 0-9 values + Back button only (C#, Windows mobile 6.5)

        Handling Numeric fields, Allowing only 0-9 values + Back button only. 

       //Sample Text box.
        private void textBoxLongStalk_KeyPress(object sender, KeyPressEventArgs e)
        {
            e.Handled = (Utility.KeyPress(sender, e) == false) ? true : false;
        }


         //Common function to handle numeric only restriction
        public static Boolean KeyPress(object sender, KeyPressEventArgs e)
        {
            if ((e.KeyChar >= (char)Keys.D0 && e.KeyChar <= (char)Keys.D9) || (e.KeyChar ==                                                                                                                                                       (char)Keys.Back))
            {
                return true;
            }
            else
            {
                return false;
            }
        }

Sender Parameter/ Common functions (C#)

Common text box validation function for all the text boxes within the same form.
Using Sender parameter to handle.   

   private void textBoxLongStalk_Validating(object sender, CancelEventArgs e)
        {
            TextBox txt = sender as TextBox;

            if (txt.Text != string.Empty)
            {
                if (isNumaric(txt) == false)
                {
                    e.Cancel = true;
                    txt.Select(0, txt.Text.Length);
                    numaricError(txt);
                }

                if (isGraterThanSampleSize(txt) == true)
                {
                    e.Cancel = true;
                    txt.Select(0, txt.Text.Length);
                    greaterThanSampleSizeError(txt);
                }

                displayRemainingBunchCount();
            }

        }

Dynamically Creating Components in a Page Controller to another Page controller (Delphi)

This function can duplicate a Page controller into another given Page controller. I am using this for to create a search Panel.

DBEdit into a Text Box,
wwDBComboBox into the same type

User should have to set the main page controller component tag field accordingly.

Ex:
DBEdit1.tag := 21; mean, Type is Integer and component type is Text Box

Tags --> first 1 to 9 Database Types
1 --> text
2 --> Numeric
3 --> DateTime

Second 1 to 9 Component Type
1 --> TextBox
2 --> Combo Box
3 --> List Box
4 --> DateTimePicker
5 --> CheckBox

6 --> Option Button

With this sample, as a param user sending  and the 
  Current form using, Parent Page controller, Child Page controller. 

Function will create all the Pagetabs in the Parent page controller in to the Child page controller. 
Searching all the controllers which tag is > 0 (Need to be in the search panel) and create under the child page controller

procedure CreateSearchPanel(form :Tform; sht, shp :TPageControl);
var
   txt : TEdit;
   mem : TMemo;
   cmb : TwwDBLookupCombo;
   dtm : TwwDBDateTimePicker;
   chk : TCheckBox;
   i, j, k, iComp : Integer;
   tab :TTabSheet;
   Noti : TNotifyEvent;
   // M: TMethod;
Begin

    i := sht.PageCount -1;
    for k := 0 to i do
    Begin
        iComp := sht.Pages[k].ControlCount - 1;
        tab := TTabSheet.Create(form);
        tab.Visible := True;
        tab.Name := '_' + sht.Pages[k].name;
        tab.Top := sht.Pages[k].Top;
        tab.Left := sht.Pages[k].Left;
        tab.Height := sht.Pages[k].Height;
        tab.Width := sht.Pages[k].Width;
        tab.Caption := sht.Pages[k].Caption;
        tab.tag :=  99;
        tab.PageControl := shp;
        tab.Font.Color := sht.pages[k].font.Color;//clBlue;

        for j := 0 to iComp do
        Begin
              if (strToInt((copy(intToStr(sht.Pages[k].controls[j].Tag),1,1))) >=1) and (strToInt((copy(intToStr(sht.Pages[k].controls[j].Tag),1,1))) <=9) then
              Begin
                 CASE strToInt((copy(intToStr(sht.Pages[k].controls[j].Tag),2,1))) of
                   1:
                   Begin
                 
                        txt := TEdit.Create(form);

//                        txt.Name :=  '_' + TDBEdit(sht.Pages[k].controls[j]).Name;
                        if Trim(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1)) = '' then
                                txt.Name :=  '_' + TDBEdit(sht.Pages[k].controls[j]).DataField
                        else
                                txt.Name := '_' + GetComponentFieldName(sht.Pages[k].controls[j],StrToInt(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1)),true);
                        txt.font :=  TDBEdit(sht.Pages[k].controls[j]).font;
                        txt.Top :=  TDBEdit(sht.Pages[k].controls[j]).Top;
                        txt.Left :=  TDBEdit(sht.Pages[k].controls[j]).Left;
                        txt.Width := TDBEdit(sht.Pages[k].controls[j]).Width;
                        txt.Height := TDBEdit(sht.Pages[k].controls[j]).Height;
                        txt.Visible := True;
                        txt.Tag := TDBEdit(sht.Pages[k].controls[j]).Tag;
                        tab.InsertControl(txt);
                        txt.Text := '';
//                        TDBEdit(sht.Pages[k].controls[j]).DataSource.DataSet.FieldByName(TDBEdit(sht.Pages[k].controls[j]).DataField).DisplayName;
                        txt.PopupMenu := TPopupMenu(form.FindComponent('PopupMenu1'));
                        {M.Data := nil;
                        M.Code := @EditBoxEnterHandler;
                        txt.OnExit := TNotifyEvent(M); }

                        if Trim(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1)) = '' then
                           SetLabel(form, sht.Pages[k], tab, TDBEdit(sht.Pages[k].controls[j]).DataSource.DataSet.FieldByName(TDBEdit(sht.Pages[k].controls[j]).DataField).DisplayLabel )
                        else
                           SetLabel(form, sht.Pages[k], tab, GetComponentFieldName(sht.Pages[k].controls[j],StrToInt(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1))));
                        //SetLabel(form, sht.Pages[k], tab, txt.Name );
                        //CreateSQLLabels(form, tab, txt.name, txt.Top, txt.Left, txt.width, txt.height);

                   end;
                   2:
                   Begin

                        cmb := TwwDBLookupCombo.Create(form);
                        tab.InsertControl(cmb);
                        if Trim(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1)) = '' then
                                cmb.Name :=  '_' + TwwDBLookupCombo(sht.Pages[k].controls[j]).DataField
                        else
                                cmb.Name :=  '_' + '_' + GetComponentFieldName(sht.Pages[k].controls[j],StrToInt(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1)),true);
                             
                        cmb.Font :=  TwwDBLookupCombo(sht.Pages[k].controls[j]).Font;
                        cmb.Top :=  TwwDBLookupCombo(sht.Pages[k].controls[j]).Top;
                        cmb.Left :=  TwwDBLookupCombo(sht.Pages[k].controls[j]).Left;
                        cmb.Width := TwwDBLookupCombo(sht.Pages[k].controls[j]).Width;
                        cmb.Height := TwwDBLookupCombo(sht.Pages[k].controls[j]).Height;
                        cmb.LookupTable   := TwwDBLookupCombo(sht.Pages[k].controls[j]).LookupTable;
                        cmb.LookupField    := TwwDBLookupCombo(sht.Pages[k].controls[j]).LookupField;
                        //cmb.KeyField    := TwwDBLookupCombo(sht.Pages[k].controls[j]).KeyField;
                        cmb.Selected := TwwDBLookupCombo(sht.Pages[k].controls[j]).Selected;
                        cmb.Height := TwwDBLookupCombo(sht.Pages[k].controls[j]).Height;
                        cmb.Options := TwwDBLookupCombo(sht.Pages[k].controls[j]).Options;
                        cmb.Visible := True;
                        cmb.PopupMenu := TPopupMenu(form.FindComponent('PopupMenu1'));
                        cmb.Tag := TwwDBLookupCombo(sht.Pages[k].controls[j]).Tag;
                        cmb.Text := '';
//                        SetLabel(form, sht.Pages[k], tab, cmb.name);
                        if Trim(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1)) = '' then
                           SetLabel(form, sht.Pages[k], tab, TwwDBLookupCombo(sht.Pages[k].controls[j]).DataSource.DataSet.FieldByName(TwwDBLookupCombo(sht.Pages[k].controls[j]).DataField).DisplayLabel )
                        else
                           SetLabel(form, sht.Pages[k], tab, GetComponentFieldName(sht.Pages[k].controls[j],StrToInt(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1))));

//                        CreateSQLLabels(form, tab, cmb.name, cmb.Top, cmb.Left, cmb.width, cmb.height);

                   end;
                   3:
                   Begin

                        dtm := TwwDBDateTimePicker.Create(form);
                        tab.InsertControl(dtm);
                        dtm.Name :=  '_' + TwwDBDateTimePicker(sht.Pages[k].controls[j]).DataField;;
                        dtm.Font :=  TwwDBDateTimePicker(sht.Pages[k].controls[j]).Font;
                        dtm.Top :=  TwwDBDateTimePicker(sht.Pages[k].controls[j]).Top;
                        dtm.Left :=  TwwDBDateTimePicker(sht.Pages[k].controls[j]).Left;
                        dtm.Width := TwwDBDateTimePicker(sht.Pages[k].controls[j]).Width;
                        dtm.Height := TwwDBDateTimePicker(sht.Pages[k].controls[j]).Height;
                        dtm.Height := TwwDBDateTimePicker(sht.Pages[k].controls[j]).Height;
                        dtm.Visible := True;
                        dtm.Tag := TwwDBDateTimePicker(sht.Pages[k].controls[j]).Tag;
                        dtm.Text := '';

                        if Trim(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1)) = '' then
                           SetLabel(form, sht.Pages[k], tab, TwwDBDateTimePicker(sht.Pages[k].controls[j]).DataSource.DataSet.FieldByName(TwwDBDateTimePicker(sht.Pages[k].controls[j]).DataField).DisplayLabel )
                        else
                           SetLabel(form, sht.Pages[k], tab, GetComponentFieldName(sht.Pages[k].controls[j],StrToInt(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1))));

                       // SetLabel(form, sht.Pages[k], tab, dtm.Name);
                     
                       // CreateSQLLabels(form, tab, dtm.name, dtm.Top, dtm.Left, dtm.width, dtm.height);
                     
                   end;
                   4:
                   Begin
                 
                        mem := TMemo.Create(form);
                        mem.Name :=  '_' + TDBMemo(sht.Pages[k].controls[j]).DataField;;
                        mem.Font :=  TDBMemo(sht.Pages[k].controls[j]).Font;
                        mem.Top :=  TDBMemo(sht.Pages[k].controls[j]).Top;
                        mem.Left :=  TDBMemo(sht.Pages[k].controls[j]).Left;
                        mem.Width := TDBMemo(sht.Pages[k].controls[j]).Width;
                        mem.Height := TDBMemo(sht.Pages[k].controls[j]).Height;
                        mem.Visible := True;
                        mem.Tag := TDBMemo(sht.Pages[k].controls[j]).Tag;
                        tab.InsertControl(mem);
                        mem.Text := '';
//                        TDBEdit(sht.Pages[k].controls[j]).DataSource.DataSet.FieldByName(TDBEdit(sht.Pages[k].controls[j]).DataField).DisplayName;
                        mem.PopupMenu := TPopupMenu(form.FindComponent('PopupMenu1'));
                        SetLabel(form, sht.Pages[k], tab, TDBMemo(sht.Pages[k].controls[j]).DataSource.DataSet.FieldByName(TDBMemo(sht.Pages[k].controls[j]).DataField).DisplayLabel );
                        //SetLabel(form, sht.Pages[k], tab, txt.Name );
                       // CreateSQLLabels(form, tab, txt.name, txt.Top, txt.Left, txt.width, txt.height);

                   end;
                  5:
                   Begin
                        chk := TCheckbox.Create(form);
                        chk.Name :=  '_' + TDBCheckbox(sht.Pages[k].controls[j]).DataField;
                        chk.Font :=  TDBCheckbox(sht.Pages[k].controls[j]).Font;
                        chk.Top :=  TDBCheckbox(sht.Pages[k].controls[j]).Top;
                        chk.Left :=  TDBCheckbox(sht.Pages[k].controls[j]).Left;
                        chk.Width := TDBCheckbox(sht.Pages[k].controls[j]).Width;
                        chk.Height := TDBCheckbox(sht.Pages[k].controls[j]).Height;
                        chk.Visible := True;
                        chk.Tag := TDBCheckbox(sht.Pages[k].controls[j]).Tag;
                        tab.InsertControl(chk);
                        chk.Enabled := True;
                        chk.Checked := False;
                        chk.Alignment := TDBCheckbox(sht.Pages[k].controls[j]).Alignment;
//                        TDBEdit(sht.Pages[k].controls[j]).DataSource.DataSet.FieldByName(TDBEdit(sht.Pages[k].controls[j]).DataField).DisplayName;
                        chk.PopupMenu := TPopupMenu(form.FindComponent('PopupMenu1'));
                        if TDBCheckbox(sht.Pages[k].controls[j]).Caption <> '' then
                        Begin
                             chk.Caption := TDBCheckbox(sht.Pages[k].controls[j]).caption;
                        end else
                        Begin
                                chk.Caption := '';

                                if Trim(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1)) = '' then
                                   SetLabel(form, sht.Pages[k], tab, TDBCheckBox(sht.Pages[k].controls[j]).DataSource.DataSet.FieldByName(TDBCheckBox(sht.Pages[k].controls[j]).DataField).DisplayLabel )
                                else
                                   SetLabel(form, sht.Pages[k], tab, GetComponentFieldName(sht.Pages[k].controls[j],StrToInt(copy(intToStr(sht.Pages[k].controls[j].Tag),3,1))));

                        end;

                       // SetLabel(form, tab, chk.Name);
                       // CreateSQLLabels(form, tab, chk.name, chk.Top, chk.Left, chk.width, chk.height);
                     
                   end;  
                 end;
              end;
        end;
     end;

end;

Version Info for Splash Screens (Delphi)

uses
   SysUtils,  ImageHlp;

function GetAppVersionStr: string;

function TformSpalsh.GetAppVersionStr: string;
var
  Exe: string;
  Size, Handle: DWORD;
  Buffer: TBytes;
  FixedPtr: PVSFixedFileInfo;
begin
  Exe := ParamStr(0);
  Size := GetFileVersionInfoSize(PChar(Exe), Handle);
  if Size = 0 then
    RaiseLastOSError;
  SetLength(Buffer, Size);
  if not GetFileVersionInfo(PChar(Exe), Handle, Size, Buffer) then
    RaiseLastOSError;
  if not VerQueryValue(Buffer, '\', Pointer(FixedPtr), Size) then
    RaiseLastOSError;
  Result := Format('%d.%d.%d.%d',
    [LongRec(FixedPtr.dwFileVersionMS).Hi,  //major
     LongRec(FixedPtr.dwFileVersionMS).Lo,  //minor
     LongRec(FixedPtr.dwFileVersionLS).Hi,  //release
     LongRec(FixedPtr.dwFileVersionLS).Lo]) //build
end;

procedure TformSpalsh.FormCreate(Sender: TObject);
var
  Rec: LongRec;
  fileDate : Integer;
begin
  fileDate := FileAge('E_MultiDrugs.exe');
  Label1.Caption :=  DateToStr(FileDateToDateTime(fileDate));
  Label2.Caption := GetAppVersionStr();
end;