Fórum limitar área de edição do edit #339277

unit AASNEditList;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  stdctrls, Mask, ToolEdit, DsgnIntf;

type

  TAASNEditList = class(TCustomControl)
  private
    { Private declarations }
    FText : String;
    FItems: TStrings;
    FOnButtonClick: TNotifyEvent;
    procedure SetText(valor: string);
    procedure SetItems(valor: TStrings);
    procedure ButtonClick(Sender: TObject);
    procedure TeclaEnter(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure TeclaDel(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Notification(AComponent: TComponent; Operation: TOperation);
  protected
    { Protected declarations }
  public
    { Public declarations }
    Edit : TComboEdit;
    Lista : TListBox;
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
  published
    { Published declarations }
    property Color;
    property Ctl3D;
    property Enabled;
    property Font;
    property Text : String read FText write SetText;
    property Items : TStrings read FItems write SetItems;
    property OnButtonClick : TNotifyEvent read FOnButtonClick write FOnButtonClick;
    procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(´Geral´, [TAASNEditList]);
end;

procedure TAASNEditList.TeclaEnter(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var FEditTmp : TCustomForm;
begin
if Key = VK_RETURN then
   begin
   Key := 0;
   if Trim((Sender as TComboEdit).Text) <> ´´ then
      begin
      Lista.Items.Add((Sender as TComboEdit).Text);
      (Sender as TComboEdit).Text := ´´;
      end
   else
      begin
      FEditTmp := GetParentForm(self);
      PostMessage(FEditTmp.Handle, WM_NEXTDLGCTL, 0, 0);
//      with Screen.ActiveForm do
//           Perform(WM_NEXTDLGCTL,0,0);
      end;
   end;
end;

procedure TAASNEditList.TeclaDel(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i : integer;
begin
if Key = VK_DELETE then
   begin
   for i := (Sender as TListBox).Items.Count - 1 downto 0 do
       if (Sender as TListBox).Selected[i] then
          (Sender as TListBox).Items.Delete((Sender as TListBox).ItemIndex);
   end;
end;

constructor TAASNEditList.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width  := 100;
  Height := 100;
  Ctl3D  := False;

  Edit := TComboEdit.Create(self);
  with Edit do
       begin
       Parent := Self;
       Left   := 0;
       Top    := Self.Top;
       Width  := Self.Width;
       GlyphKind := gkEllipsis;
       CharCase  := ecUpperCase;
       OnKeyDown := TeclaEnter;
       OnButtonClick := ButtonClick;
       end;

  FItems := TStringList.Create;

  Lista := TListBox.Create(self);
  with Lista do
       begin
       Parent := Self;
       Left   := 0;
       Top    := Self.Top + Edit.Height;
       Width  := Self.Width;
       Height := Self.Height - Edit.Height;
       OnKeyDown := TeclaDel;
       TabStop := False;
       end;

end;

procedure TAASNEditList.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited SetBounds(ALeft, ATop, AWidth, AHeight);
  if (ATop > 0) and (AWidth > 0) and (AHeight > 0) then
     begin
     Edit.SetBounds(0, 0, AWidth, Edit.Height);
     Lista.SetBounds(0, Edit.Height, AWidth, AHeight - Edit.height);
     end;
end;

procedure TAASNEditList.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if Operation = opRemove then
     begin
     if AComponent = Edit then
        Edit := nil
     else if AComponent = Lista then
        Lista := nil;
     end;
end;

destructor TAASNEditList.Destroy;
begin
  inherited Destroy;
end;

procedure TAASNEditList.ButtonClick(Sender: TObject);
begin
if Assigned(OnButtonClick) then
   OnButtonClick(Sender);
end;

procedure TAASNEditList.SetText(valor : string);
begin
FText := valor;
Edit.Text := valor;
end;

procedure TAASNEditList.SetItems(valor : TStrings);
begin
FItems.Clear;
FItems.AddStrings(valor);
Lista.Clear;
Lista.Items.AddStrings(valor);
end;

end.