Fórum problemas com edit .... #210893

procedure TForm3.edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
var C: Char;
  PT: TPoint;
begin
if (Form12 <> nil) then form12.Close;
 C := UpCase(Char(Key));
 if (C in [´B´, ´U´, ´O´, ´R´, ´K´]) and (ssCtrl in Shift) then
 begin
  case C of
   ´B´ : edit1.SelText := TAG_BOLD;
   ´U´ : edit1.SelText := TAG_UNDERLINE;
   ´O´ : edit1.SelText := TAG_NORMAL;
   ´R´ : edit1.SelText := TAG_INVERSE;
   ´K´ :
  begin
   pt.Y := panel2.Top;
   pt.X := panel2.Left;
   editscreen := ClientToScreen(pt);
   criacor(Form3);
   edit1.SelText := TAG_COLOR;
  end;
 end;
end;
Key := 0;
end;