![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Подскажите пожалуйста почему,и как это исправить, у меня в некоторых программах,где использую ХРман . при нажатии шифт+альт для смены языка,исчезают некоторые кнопки и чекбоксы,при этом если провести мышкой по месту где исчезла кнопка,она появляется.у меня Винда 7,дельфи 7
|
|
#2
|
||||
|
||||
|
Проблема делфи 7 (исчезают компоненты такие как TButton, TCheckBox, TStaticText). Лично я исправлял так:
Код:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i: Integer;
begin
// Перерисовываю TButton, TCheckBox, TStaticText, TRadioButton
for i:=0 to (ComponentCount - 1) do begin
if(Components[i].ClassType = TButton) then
TButton(Components[i]).Repaint;
if(Components[i].ClassType = TCheckBox) then
TCheckBox(Components[i]).Repaint;
if(Components[i].ClassType = TStaticText) then
TStaticText(Components[i]).Repaint;
if(Components[i].ClassType = TRadioButton) then
TRadioButton(Components[i]).Repaint;
end;
end;Последний раз редактировалось v1s2222, 15.08.2011 в 13:59. |
|
#3
|
||||
|
||||
|
можно образец?
|
|
#4
|
||||
|
||||
|
Цитата:
|
|
#6
|
||||
|
||||
|
гг, прикольно) Steps to Reproduce сделал, на теме Windows XP TStaticText реально при нажатии на Alt исчезает
![]() |
|
#7
|
||||
|
||||
|
Тогда понятно, у меня все проекты на API и мне поровну как Дельфи работает со своими манифестами.
|
|
#9
|
|||
|
|||
|
Цитата:
|