Cita:
Empezado por Carmelo Cash
Me gutaría poder eliminar esta restricción para poder utiliar este programa con un monitor táctil sin utilizar mouse y/o teclado.
|
Hola Carmelo.
Del código correspondiente al evento
OnMouseDown quita o comentá las siguientes líneas:
Código Delphi
[-]
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with TStringGrid(Sender) do
begin
MouseToCell(X, Y, FCol, FRow);
BeginDrag(True);
end;
end;
Saludos.