Gönderen Konu: Tab Tusunu Algılama (Okunma sayısı 2151 defa)

Fatih · « : 07 Ekim 2005 20:39:12 »

Kod: (Unknown Language)

unit Unit2; 
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    Procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
{ TForm2 }
 
procedure TForm2.CMDialogKey(var Msg: TWMKey);
begin
 if (ActiveControl is tedit) then
    Msg.Result := 0
 else
 inherited;
 
end;
 
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Ord(Key) = VK_TAB then
    Key := #0; // no beep!
end;

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Tab Tusunu Algılama (Okunma sayısı 2151 defa)

Fatih

Tab Tusunu Algılama