O que esta errado...

[Wellington.R 0]

Alguem pode me ajudar estou tentando fazer um aplicativo simples de identificação de teclas que ao pressionar mostra uma figura com a letra pressionada.

 

CODIGO

 

procedure TForm1.lbltextoStartDrag(Sender: TObject;
 var DragObject: TDragObject);
var
cc : char;
ss : string;
begin
lbltexto.SetFocus;
 ss:=lbltexto.text;
 cc:=ss[1];
   case strtoint(cc) of
   65: a.Visible:= true;
   66: b.visible:=true;
   67: ce.visible:=true;
   68: d.visible:=true;
   69: e.visible:=true;
   70: f.visible:=true;
   71: g.visible:=true;
   72: h.visible:=true;
   73: i.visible:=true;
   74: j.visible:=true;
   75: k.visible:=true;
   76: l.visible:=true;
   77: m.visible:=true;
   78: n.visible:=true;
   79: o.visible:=true;
   80: p.visible:=true;
   81: q.visible:=true;
   82: r.visible:=true;
   83: esse.visible:=true;
   84: t.visible:=true;
   85: u.visible:=true;
   86: v.visible:=true;
   87: w.visible:=true;
   88: x.visible:=true;
   89: y.visible:=true;
   90: z.visible:=true;
   else
   a.visible:=false;
   b.visible:=false;
   ce.visible:=false;
   d.visible:=false;
   e.visible:=false;
   f.visible:=false;
   g.visible:=false;
   h.visible:=false;
   i.visible:=false;
   j.visible:=false;
   l.visible:=false;
   m.visible:=false;
   n.visible:=false;
   o.visible:=false;
   p.visible:=false;
   q.visible:=false;
   r.visible:=false;
   esse.visible:=false;
   t.visible:=false;
   u.visible:=false;
   v.visible:=false;
   x.visible:=false;
   z.visible:=false;
   w.visible:=false;
   end;
   end;

 

FIM CODIGO

obrigado pela ajuda...

[bdexterholland 0]

Perdão, poderia ser mais claro em relação ao problema ocorrido? Seu código não está executando? Há mensagens de erro? a Propriedade KeyPreview do formulário está como True?

 

Tem certeza que o evento a ser utilizado é mesmo o OnStartDrag?