zoukankan      html  css  js  c++  java
  • 偶写的第一个控件,一个用选择代替输入的Edit控件…

    FDataSource :=TDataSource.Create(self);
    FDBGrid.FreeNotification(self);
    FADOQuery.FreeNotification(self);
    FDataSource.FreeNotification(self);
    FDataSource.DataSet:=FADOQuery;
    with FDBGrid do
    begin
    DataSource:=FDataSource;
    Ctl3D:=false;
    Visible:=false;
    ParentCtl3D:=false;
    Options:=[dgColLines,dgRowLines,dgRowSelect,dgAlwaysShowSelection,dgConfirmDelete,dgCancelOnExit];
    OnMouseUp:=DoFDBGridMouseUp;
    OnKeyDown:=DoFDBGridKeyDown;
    end;
    with self do
    begin
    ParentCtl3D:=false;
    Ctl3D:=false;
    end;
    end;
    procedure TDBLookUpEdit.CreateWnd;
    begin
    FCreating := True;
    try
    inherited CreateWnd;
    finally
    FCreating := False;
    end;
    end;
    procedure TDBLookUpEdit.CMBidimodechanged(var Message: TMessage);
    begin
    inherited;
    FDBGrid.BiDiMode := BiDiMode;
    end;
    procedure TDBLookUpEdit.CMEnabledchanged(var Message: TMessage);
    begin
    inherited;
    FDBGrid.Enabled := Enabled;
    end;
    procedure TDBLookUpEdit.CMVisiblechanged(var Message: TMessage);
    begin
    inherited;
    end;
    procedure TDBLookUpEdit.Notification(AComponent: TComponent;
    Operation: TOperation);
    begin
    inherited Notification(AComponent, Operation);
    if (AComponent = FDBGrid) and (Operation = opRemove) then FDBGrid:= nil;
    if (AComponent = FADOQuery) and (Operation = opRemove) then FADOQuery:= nil;
    if (AComponent = FDataSource) and (Operation = opRemove) then FDataSource:= nil;
    end;
    procedure TDBLookUpEdit.SetParent(AParent: TWinControl);
    begin
    inherited SetParent(AParent);
    if FDBGrid <> nil then FDBGrid.Parent := self.Owner as TForm;
    end;
    procedure TDBLookUpEdit.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
    begin
    inherited;
    if FDBGrid <> nil then
    with FDBGrid do
    begin
    Top:=-Height;
    Left:=-Width;
    end;
    end;
    procedure TDBLookUpEdit.SetRecText(FieldNo: integer);
    begin
    self.SetFocus;
    self.SelectAll;
    if (FADOQuery.Connection <>nil) or (FADOQuery.ConnectionString <>'''''''') then
    if FADOQuery.Active then
    if FADOQuery.RecordCount >0 then
    if FADOQuery.FieldCount>FieldNo then
    begin
    self.Text:=FDBGrid.Fields[FieldNo].Text;
    self.SelectAll;
    self.SetFocus;
    end;
    end;
    procedure TDBLookUpEdit.FDoEnter(Sender: TObject);
    var
    p :TPoint;
    begin
    P:=self.ClientToParent(point(0,self.Height),(self.Owner as TForm));
    if (FDBGrid.Height p.y 2)<=(self.Owner as TForm).Height then
    begin
    FDBGrid.Top :=p.y 2;
    end
    else begin
    FDBGrid.Top :=p.y-2-self.Height -FDBGrid.Height;
    end;
    FDBGrid.Left :=p.x 2;
    FDBGrid.BringToFront;
    FDBGrid.Visible:=true;
    if self.Text='''''''' then SetRecText(1);
    self.SelectAll;
    if (self.Text<>'''''''') and FADOQuery.Active then
    FADOQuery.Locate(FKeyField, self.text,[lopartialkey]);
    end;
    procedure TDBLookUpEdit.FDoExit(Sender: TObject);
    begin
    if not FDBGrid.Focused then FDBGrid.Visible:=false;
    end;
    procedure TDBLookUpEdit.DoFDBGridMouseUp(Sender: TObject;
    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
    SetRecText(1);
    FDBGrid.Visible:=false;
    end;
    procedure TDBLookUpEdit.DoFDBGridKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
    begin
    if key=13 then
    begin
    SetRecText(1);
    FDBGrid.Visible:=false;
    key:=0;
    end;
    end;
    procedure TDBLookUpEdit.CNCommand(var Message: TWMCommand);
    begin
    case Message.NotifyCode of
    EN_CHANGE:
    begin
    if not FCreating then
    if Assigned(FOnChange) then FOnChange(self);
    end;
    EN_KILLFOCUS:
    begin
    if Assigned(FOnExit) then FOnExit(self);
    FDoExit(self);
    end;
    EN_SETFOCUS:
    begin
    if Assigned(FOnEnter) then FOnEnter(self);
    FDoEnter(self);
    end;
    end;
    end;
    procedure TDBLookUpEdit.DblClick;
    begin
    inherited;
    FDoEnter(self);
    end;
    function TDBLookUpEdit.GetDataSource: TDataSource;
    begin
    Result := FDBGrid.DataSource;
    end;
    procedure TDBLookUpEdit.SetDataSource(Value: TDataSource);
    begin
    if Value <> FDBGrid.Datasource then FDBGrid.DataSource := Value;
    if Value <> nil then Value.FreeNotification(Self);
    end;
    procedure TDBLookUpEdit.KeyDown(var Key: Word; Shift: TShiftState);
    begin
    inherited;
    if FDBGrid.Visible then
    begin
    if (key=38) or (key=40) then
    begin
    SendMessage(FDBGrid.Handle,WM_KEYDOWN,key,0);
    key:=0;
    end;
    if key=13 then
    begin
    SetRecText(1);
    FDBGrid.Visible:=false;
  • 相关阅读:
    [js对象]JS入门之Date对象
    从Microsoft SqlServer 2005中返回有一定顺序的记录集
    [js对象]JS入门之Global对象
    [JS.IntelliSense]VS2008(Orcas) So Cool
    即插即用插件式框架的程序集处理遐想(TypeFinder)
    [C#3.0体验]Orcas中内置的LinQ,XLinQ[DLinQ]扩展方法
    [ASP.NET入门]页面生命周期
    [IE]IE6&IE7运行于同一个系统中
    [js对象]JS入门之Boolean&Object对象
    RSS(Really Simple Syndication)常用标签
  • 原文地址:https://www.cnblogs.com/jijm123/p/10779418.html
Copyright © 2011-2022 走看看