How to work shortcut key in Tadvglowbutton

0

I have a form to base use for creating others using the Tadvglowbutton component. In the% example example% running shortcut keys on all buttons of this type, however even after I copy the button to my new form the shortcuts do not work.

I have already checked the code for form that could be doing this, but there are only% super simple procedures that only show messages on the screen or open and close connection to the database.

Below is the code for an object of type procedures (this caught the TAdvGlowButton that the shortcut works but is the same as the other form ):

object AdvGlowButton4: TAdvGlowButton
  Left = 850
  Top = 3
  Width = 79
  Height = 32
  Caption = 'ESC | Sair'
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ImageIndex = 49
  FocusType = ftHot
  NotesFont.Charset = DEFAULT_CHARSET
  NotesFont.Color = clWindowText
  NotesFont.Height = -11
  NotesFont.Name = 'Tahoma'
  NotesFont.Style = []
  ParentFont = False
  Picture.Data = {
    89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
    F8000000097048597300000EC400000EC401952B0E1B00000271494441544889
    B595CF4B545118869FD7B92B2504A145FE03D524D44C08416D74220C6A716F3F
    74D92A5C39D3A6949432312910E6EEDA15B472D10C41A510D63FA0F79242919B
    76B92842B268A3F3B5F028379D9944C7B339DC7BBEFBBCE73BF73BEF2733A3D6
    C816CA69A017C801278056B7B4022C02B3C05454F43FD762A89A40265F4A4B7A
    6466178126493233934432DEBD5F035E49BA1315FDA5FF0A64F2A57E605252B3
    FBF88DA49299CD4B5A76F1ED40A7A4C0CC7ADC267E9BD9401C064F6B0A640BE5
    5160C43DCE00856ABB4A0E778C21701EA800C351D19FD82190C9976E4A7A6266
    156054D27854F42BF5E089AC53921E98D92080A41B51D17FBE2590C9978E02F3
    EE58EEC56130B61B7015A187C0A0A455333B1587C117CF293E065A806949E37B
    813BCE087006E8923401F429932FA5CD6C0130491DF54A6E97599C941499D93A
    70CC03AE034DC0EBFDC201E230F8902D94DF03DDC0350FC8491250DE2F3C31CA
    927240B7071CB78D529A6BA0C09C63A63DA0CD65F0B58102CB8E79D803B07A86
    B4C7B1C9F4801F401B1BD7FF7B83F847DCFCCD033E0167812CB0D02081D36EFE
    E801B392CE015780670D1208DC3F7877E0176DD38B5E029725CD98D9A5380C2A
    890F0EC561B05A0D962D945351D15F4FC4A680B792BACC6C2A0E83BE4D2FBACD
    46D7EA917417D832BB5A708024DC71C6802EE0A7A421A86DD7F79D5DEFAA7C33
    F95293B3EB2127F4AF5D27521E35B31117346D66B7E230584AACB798D99F6D47
    980642493957FBC37118EC6C3809483F300934036BC034F0029807965D583BD0
    095C052E0029E017301015FDDA2D33B9AB036BFADB85805E49DD66D621A9D5C5
    AF008B92665DB5D42CEDBFC465552860CF4DD40000000049454E44AE426082}
  Transparent = True
  TabOrder = 8
  OnClick = bfecharClick
  Appearance.BorderColor = 14727579
  Appearance.BorderColorHot = 10079963
  Appearance.BorderColorDown = 4548219
  Appearance.BorderColorChecked = clBlack
  Appearance.Color = 15653832
  Appearance.ColorTo = 16178633
  Appearance.ColorChecked = 7915518
  Appearance.ColorCheckedTo = 11918331
  Appearance.ColorDisabled = 15921906
  Appearance.ColorDisabledTo = 15921906
  Appearance.ColorDown = 7778289
  Appearance.ColorDownTo = 4296947
  Appearance.ColorHot = 15465983
  Appearance.ColorHotTo = 11332863
  Appearance.ColorMirror = 15586496
  Appearance.ColorMirrorTo = 16245200
  Appearance.ColorMirrorHot = 5888767
  Appearance.ColorMirrorHotTo = 10807807
  Appearance.ColorMirrorDown = 946929
  Appearance.ColorMirrorDownTo = 5021693
  Appearance.ColorMirrorChecked = 10480637
  Appearance.ColorMirrorCheckedTo = 5682430
  Appearance.ColorMirrorDisabled = 11974326
  Appearance.ColorMirrorDisabledTo = 15921906
  Appearance.GradientHot = ggVertical
  Appearance.GradientMirrorHot = ggVertical
  Appearance.GradientDown = ggVertical
  Appearance.GradientMirrorDown = ggVertical
  Appearance.GradientChecked = ggVertical
end
    
asked by anonymous 09.02.2015 / 01:05

0 answers