Mega Code Archive

 

Categories / Delphi / System

 

Enteri tab tuşu gibi kullanma

formun OnKeyPress kısmına aşağıdakileri yazın ve KeyPreview özel- liğini True yapın. procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (Key = #13) then { Eğer ENTER'a basılmışsa... } begin { ve Aktif olan control TEdit tipinde ise... } if ActiveControl is TEdit then begin Key := #0; { Enter'a basılmamış gibi göster... } { ve TAB tuşunun işlemini yerine getir... } Perform(WM_NEXTDLGCTL, 0, 0); end; end; end;