Sabtu, 22 Januari 2011

Menjadikan Tab Sebagai Enter di Delphi

Bagi programmer Delphi tentunya tidak asing lagi akan istilah ini. Form aplikasi yang dibuat tentunya akan terdiri dari banyak komponen, dan untuk memindahkan kursor ke komponen berikutnya tentunya menggunakan tombol TAB. Nah, untuk menggantinya agar tombol ENTER yang dipakai maka berikut ada beberapa cara :

set keypreview pada form menjadi true

procedure TForm1.FormCreate(Sender: TObject);
begin  
      keyPreview := true;
end;

/////////cara 1//////////////////////////
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if Key = #13 then 
     begin   
           Key := #0;    PostMessage(Handle, WM_NEXTDLGCTL, 0, 0); 
     end;
end;
/////////////////////////////////

//////////cara 2//////////////////////////////////
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  KodeScan : Integer;
begin
  if Key = VK_RETURN then
  begin
    Key := 0; { hilangkan bunyi beep }
    KodeScan := Lo(MapVirtualKey(VK_TAB,0));
    keybd_event(VK_TAB, KodeScan, 0,0);
  end;
end;

Tidak ada komentar:

Posting Komentar