Kadang, user menginginkan ketika dia klik ENTER maka kursor akan berpindah ke componet berikutnya. Ada beberapa cara, antar lain memakai coponent EnterAsTab (Silahkan Googling).
Kadang, user menginginkan ketika dia klik ENTER maka kursor akan berpindah ke componet berikutnya. Ada beberapa cara, antar lain memakai coponent EnterAsTab (Silahkan Googling).
Jika kita tidak bisa menemukan component tersebut, kita bisa akali sebagai berikut :
Di method FormKeyDown tuliskan Script Berikut
if Key = VK_RETURN then
begin
SelectNext(ActiveControl,True,True);
end;
Jangan lupa untuk mengeset properties KeyPreview dari form menjadi TRUE.
Sebenarnya untuk component StringGrid ketika Enter harus pindah ke cell berkutnya, script di atas belum bisa , ada yang bisa menambahkan ? :)
Selamat Mencoba
Kadang, user menginginkan ketika dia klik ENTER maka kursor akan berpindah ke componet berikutnya. Ada beberapa cara, antar lain memakai coponent EnterAsTab (Silahkan Googling).
Jika kita tidak bisa menemukan component tersebut, kita bisa akali sebagai berikut :
Di method FormKeyDown tuliskan Script Berikut
if Key = VK_RETURN then
begin
SelectNext(ActiveControl,True,True);
end;
Jangan lupa untuk mengeset properties KeyPreview dari form menjadi TRUE.
Sebenarnya untuk component StringGrid ketika Enter harus pindah ke cell berkutnya, script di atas belum bisa , ada yang bisa menambahkan ? :)
Selamat Mencoba
1 comments - Add Yours
untuk dbggrid :
procedure TForm1.DBGrid1KeyPress (Sender: TObject; var Key: Char) ;
begin
If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then begin
with (Sender as TDBGrid) do
if selectedindex > 0 then
selectedindex := selectedindex - 1
else begin
DataSource.DataSet.Prior;
selectedindex := fieldcount - 1;
end;
end else begin
with (Sender as TDBGrid) do
if selectedindex < (fieldcount - 1) then
selectedindex := selectedindex + 1
else begin
DataSource.DataSet.Next;
selectedindex := 0;
end;
end;
Key := #0
end;
end;
Post a Comment