orc 0 Denunciar post Postado Novembro 17, 2006 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. Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Novembro 17, 2006 Interessante este componente, parabéns ai pela dica, vou testar aqui, hehehe Compartilhar este post Link para o post Compartilhar em outros sites
orc 0 Denunciar post Postado Novembro 17, 2006 Interessante este componente, parabéns ai pela dica, vou testar aqui, hehehevaleu funfa 100% uso ele em minhas aplicações Compartilhar este post Link para o post Compartilhar em outros sites
Inovar 0 Denunciar post Postado Maio 9, 2007 Como é feito para passar esse código e transforma-lo num componente? Agradeço desde já! Compartilhar este post Link para o post Compartilhar em outros sites
orc 0 Denunciar post Postado Junho 2, 2007 é 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 Compartilhar este post Link para o post Compartilhar em outros sites
Igor C. Menin 0 Denunciar post Postado Julho 24, 2008 kra você poderia disponibilizar ele já em PAS neh.. Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Julho 24, 2008 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... Compartilhar este post Link para o post Compartilhar em outros sites
cads 0 Denunciar post Postado Julho 6, 2009 Muito bom parabens!!! funciona perfeitamente.. Compartilhar este post Link para o post Compartilhar em outros sites
