Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

Как обновить TEdit   Найти похожие ветки 

 
leonidus ©   (2005-09-05 09:37) [0]

У меня такая проблема. Сделал форму "повех всех" путем перехвата WM_WINDOWPOSCHANGING:

procedure TForm2.WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING);
begin
  SetWindowPos(form2.Handle,HWND_TOPmost,form2.Left,form2.Top,form2.Width,form2.Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );
end;

Перехватывая WM_ACTIVATE хочу обновлять все контролы:

procedure TForm2.WMACTIVATE(var Msg: TWMACTIVATE);
begin
form2.Refresh;
ListView1.Refresh;
FindWord.Refresh;  //TEdit
end;

На форме помимо других контролов лежит еще и TEdit (FindWord), так вот если поверх мой формы положить другую форму тоже в режиме "поверх всех" например Диспетчер задач, а потом по Alt+Tab перключиться на мою форму, то все контролы кроме TEdit`а перерисовываются, а на TEdit`е остаются "куски" лежащей поверх формы, причем стоит навести на него мышью как он корректно обновляется. Как мне его самому обновить без наведения мышью?


 
IceBeerg ©   (2005-09-05 13:25) [1]

Попробуй что либо из:
Edit1.Update
SendMessage(Edit1.Handle,WM_PAINT...
UpdateWindow(...


 
leonidus ©   (2005-09-05 14:50) [2]

Нет, не помогает этот блок ставил так:

procedure TForm2.WMACTIVATE(var Msg: TWMACTIVATE);
begin
form2.Refresh;
ListView1.Refresh;
FindWord.Update;
SendMessage(FindWord.Handle,WM_PAINT,0,0);
UpdateWindow(FindWord.Handle);
end;

procedure tform2.WMACTIVATEAPP(var Msg: TWMACTIVATEAPP);
begin
form2.Refresh;
FindWord.Update;
SendMessage(FindWord.Handle,WM_PAINT,0,0);
UpdateWindow(FindWord.Handle);
end;

всеравно не обновляется контрол. Мне только не понятно почему все контролы нормально орисовываются и TComboBox и TListView и TButton`ы а именно TEdit не хочет...
Кстати если чужим окном по моему провести то когда мое полность покажется все контролы прорисованы, а вот если мое окно лежит под чужим и немного выглядывает, а я по нему щелкаю, то оно вылазиет вперед но TEdit не прорисован...


 
KosilkA ©   (2005-09-05 15:04) [3]

может  InvalidateRect ?


 
IceBeerg ©   (2005-09-05 18:16) [4]

SendMessage(tform2.Handle,WM_PAINT,FindWord.Handle,0);?



Страницы: 1 вся ветка

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
2-1124229284
Просьба
2005-08-17 01:54
2005.09.25
Как отследить уход мыши с TImage?


14-1124344469
Kerk
2005-08-18 09:54
2005.09.25
Новый ресурс о делфи. Рекомендую всем.


3-1123934333
Marser
2005-08-13 15:58
2005.09.25
ADO. Отслеживание изменения БД.


1-1124634033
Дмитрий_05
2005-08-21 18:20
2005.09.25
Как избавиться от двойной прорисовке окна


1-1125596496
Aleksandrrr
2005-09-01 21:41
2005.09.25
как установить гиперссылки