[ascrnet]

Empezado por ElKurgan

También puedes probar con el evento "KeyDown"; creo que en este si que puedes capturar las teclas de control

Un saludo

lo hise pero no funciona, cual es la forma correcta de preguntar por las teclas de cursor , yo lo hise asi

procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin   
      if (key=40) and (key=38) then     
     begin            
          showmessage('* ' +IntToStr(key)  );
    end;
end;