Componente TAB por ENTER

[orc 0]

Utilizado em Delphi 6 / 7 / 2005 / 2006

 

unit Tabenter;interfaceuses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,	 Forms, Dialogs, Buttons, StdCtrls;type  TkEnterAsTab = class(TSpeedButton)  private   FEnterAsTab : boolean;  protected  procedure CMDialogKey(var Message: TCMDialogKey);   message CM_DIALOGKEY;  procedure Paint; override;  public  constructor Create(AOwner: TComponent); override;  published  property EnterAsTab: boolean read FEnterAsTab write FEnterAsTab default True;  end;procedure Register;implementationconstructor TkEnterAsTab.Create(AOwner: TComponent);begin inherited Create(AOwner); FEnterAsTab := True; if not (csDesigning in ComponentState) then begin  Enabled := False;  Visible := False; end else begin  Font.Name   := 'Small Fonts';  Font.Size   := 7;  Caption	 := 'Enter';  Flat		:= True;  Transparent := False; end;end;procedure TkEnterAsTab.CMDialogKey(var Message : TCMDialogKey);begin if (GetParentForm(Self).ActiveControl is TButtonControl) and  not (GetParentForm(Self).ActiveControl is TCheckBox) and not (GetParentForm(Self).ActiveControl is TRadioButton) then  inherited else if (Message.CharCode = VK_RETURN) and (EnterAsTab) then begin  GetParentForm(Self).Perform(CM_DialogKey, VK_TAB, 0);  Message.Result := 1; end else  inherited;end;procedure TkEnterAsTab.Paint;begin if (csDesigning in ComponentState) then begin  Width  := 27;  Height := 27; end; inherited Paint;end;procedure Register;begin RegisterComponents('TabEnter', [TkEnterAsTab]);end;end.

[marcio.theis 3]

Interessante este componente, parabéns ai pela dica, vou testar aqui, hehehe

[orc 0]

Interessante este componente, parabéns ai pela dica, vou testar aqui, hehehe

valeu funfa 100% uso ele em minhas aplicações

[Inovar 0]

Como é feito para passar esse código e transforma-lo num componente? Agradeço desde já!

[orc 0]

é só pegar esse fonte transformar num .pas abrir o delphi va em component > install component selecionao aqui.pas e ta beleza ta instalado depois vai em tools > enviroment options > library e adiciona o caminho do componente pronto ta instalado

[Igor C. Menin 0]

kra você poderia disponibilizar ele já em PAS neh..

[marcio.theis 3]

kra você poderia disponibilizar ele já em PAS neh..

Precisa somente criar uma arquivo, apagar tudo e colar o fonte e salvar como Tabenter.pas

barbadinha...

[cads 0]

Muito bom parabens!!! funciona perfeitamente..