link9072 link9073 link9074 link9075 link9076 link9077 link9078 link9079 link9080 link9081 link9082 link9083 link9084 link9085 link9086 link9087 link9088 link9089 link9090 link9091 link9092 link9093 link9094 link9095 link9096 link9097 link9098 link9099 link9100 link9101 link9102 link9103 link9104 link9105 link9106 link9107 link9108 link9109 link9110 link9111 link9112 link9113 link9114 link9115 link9116 link9117 link9118 link9119 link9120 link9121 link9122 link9123 link9124 link9125 link9126 link9127 link9128 link9129 link9130 link9131 link9132 link9133 link9134 link9135 link9136 link9137 link9138 link9139 link9140 link9141 link9142 link9143 link9144 link9145 link9146 link9147 link9148 link9149 link9150 link9151 link9152 link9153 link9154 link9155 link9156 link9157 link9158 link9159 link9160 link9161 link9162 link9163 link9164 link9165 link9166 link9167 link9168 link9169 link9170 link9171 link9172 link9173 link9174 link9175 link9176 link9177 link9178 link9179 link9180 link9181 link9182 link9183 link9184 link9185 link9186 link9187 link9188 link9189 link9190 link9191 link9192 link9193 link9194 link9195 link9196 link9197 link9198 link9199 link9200 link9201 link9202 link9203 link9204 link9205 link9206 link9207 link9208 link9209 link9210 link9211 link9212 link9213 link9214 link9215

Форум — Ответы     (  К темам )
 ?  fox`: не могу заставить работать Ctrl+"буква"... (11-03-2003 15:27:23) http://home.parks.lv/fox
... хочу сделать в программе, чтобы при нажатии "Ctrl+"буква"" заголовке формы менялся-бы на "Ctrl+"буква"...", но или я что-то не доделал, или еще что — проект компилится, но принажатии "Ctrl" ничего не происходит, и в дебаггинге "не ловится" это событие ... :(
// пример просто с контролом, потому как при добавлении буквы ничего не меняется

void __fastcall TF1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
TShiftState Testi;
Testi << ssCtrl;
if (Shift == Testi)
F1->Caption = "нужный текст";
}
 Павел (11-03-2003 21:04:47)
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Shift.Contains(ssCtrl)) Form1->Caption = Key;
}