Forum > Spanish
Intro en un DBGrid.
(1/1)
critter:
Tras multiples pruebas no encuentro solución, ya que al pulsar la tecla Enter en un DBGrid de solo lectura con la RowSelect = True, silencia dicha tecla en el evento OnKeypress. ¿ Existe alguna solución para poder capturar dicha tecla ?
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---TForm1.DBGridOnKeyPress(Sender: TObject; var Key = char);begin if Key = #13 then Button1.Click;end;
garlar27:
Tenés que ir al inspector de objetos y destildar la opción dgEditing.
Aún así podés tener problemas para capturar las teclas presionadas. Vas a tener que usar el evento OnKeyDown y preguntar
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---uses lclType;....if Key = VK_RETURN then DoSometing;Si aún no podés capturar la tecla, entonces debe haber otra propiedad que captura el evento y te lo esconde.
lucamar:
En última instancia, podrías activar KeyPreview y capturar la tecla en el manejador del evento OnKeyPress del formulario. Algo así como esto:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; DBGrid1: TDBGrid; procedure FormCreate(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: char); private public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject);begin { Esto puedes hacerlo también en el Inspector de Objetos; lo pongo aquí y así para que se vea :-) } KeyPreview := True;end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);{Si necesitas un control más "fino", usa OnKeyDown/OnKeyUP }begin if (Key = #13) and (Form1.ActiveControl = DBGGrid1) then begin Key := #00; Button1.Click. end;end; end.
garlar27:
--- Quote from: lucamar on December 17, 2018, 05:27:57 pm ---En última instancia, podrías activar KeyPreview y capturar la tecla en el manejador del evento OnKeyPress del formulario. Algo así como esto:
--- End quote ---
Yo probé eso una vez pero no funcionó. Parece que el TDBGrid tiene algo "raro" con los eventos del teclado.
GAN:
Probablemente al estar como read only no capture las teclas, de todas formas al tener row select en true puedes prescindir del read only y probar.
Navigation
[0] Message Index