OnKeyDown

[scooterjgm]

como puedo controlar cuando se pulse la tecla CONTROL+SUPR??

ahora mismo lo tengo asi:

if key=VK_DELETE then
begin

pero con esto solo controlo la tecla SUPR...

Gracias!!

[roman]

Fíjate en el parámetro Shift del evento OnKeyDown:

Código Delphi [-]
if (ssCtrl in Shift) and (Key = VK_DELETE) then

// Saludos

[scooterjgm]

Muchas gracias Roman!! Funciona perfectamente

Un Saludo.

[DarkBlue]

Empezado por roman

Fíjate en el parámetro Shift del evento OnKeyDown:

Código Delphi [-]
if (ssCtrl in Shift) and (Key = VK_DELETE) then

// Saludos

como lo llamo desde otro procedimiento

Código Delphi [-]

procedure Tfcotizacion.Remplazar1Click(Sender: TObject);
var cap:string;
n:integer;

begin
 
 cap:= popupmenu1.Items.Items[0].Caption;
 stringgrid1.Cells[fcotizacion.col,row]:=cap;
 fcotizacion.OnKeyDown(sender,VK_CANCEL,//que va aqui??);


end;

gracias

[olbeup]

procedure Tfcotizacion.Remplazar1Click(Sender: TObject);
var cap:string;
n:integer;

begin

cap:= popupmenu1.Items.Items[0].Caption;
stringgrid1.Cells[fcotizacion.col,row]:=cap;
fcotizacion.OnKeyDown(sender,VK_CANCEL,//que va aqui??);


end;

Que tal éste código modificado

Código Delphi [-]
procedure TFCotizacion.Remplazar1Click(Sender: TObject);
var
  Cap: String;
  N:Integer;
  Key: Word;
begin
  Key := VK_CANCEL;
  Cap := PopupMenu1.Items.Items[0].Caption;
  StringGrid1.Cells[FCotizacion.Col, FCotizacion.Row] := Cap;
  FCotizacion.OnKeyDown(Sender, Key, []);
end;

Un saludo.