Mega Code Archive

 

Categories / Delphi / Examples

 

Enter tuşunu tab gibi algılatmak

// Bu rutini Formunuzun OnKeyPress eventına ekleyiniz. } // Form üstünden keypreview=true yapin} begin if Key = #13 then { Eğer Enter basılmışsa} if not (ActiveControl is TDBGrid) then begin// TDBGrid üzerinde değilse} Key := #0; { } Perform(WM_NEXTDLGCTL, 0, 0); { } end else if (ActiveControl is TDBGrid) then// TDBGridd ise} with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1) then// Alanı bir arttır } selectedindex := selectedindex +1 else selectedindex := 0;