Проблема с отрисовкой кнопок

[Ciber SLasH]

Народ, подскажите как принудительно вызвать WM_PAINT для кнопки. Возникла проблема с отрисовкой когда форму перетащить за край экрана, то всё что я нарисовал на кнопках исчезает и перерисовывается только при нажатии на кнопку. Нужно как-то принудительно вызвать прорисовку.

[dAnIK SeNT]

2Ciber SLasH
А в чем проблема? Берешь и посылаешь. Ну, примерно так:

Button1.Repaint();
или
SendMessage (Button1.Handle, WM_PAINT, bla-bla-bla);

после чего
Appllication.ProcessMessages();

Должно сработать.
Или я чего-то недопонимаю?

[Ciber SLasH]

Не получается !!!
При создании формы делаю: Application.OnMessage := AppMessage.
И в процедуре AppMessage обрабатываю все сообщения. Если допустим при клике крысы на форме послать сообщение о перерисовке кнопки, то ничего не получается - сообщение WM_PAINT для кнопки не приходит (дебагер даже не останавливается на WM_PAINT):

Код: выделить все

 if (Msg.hwnd = Form1.Handle) and (Msg.message = WM_LBUTTONDOWN) then
   begin
     SendMessage(RadioButton2.Handle, WM_PAINT, 0,0);
     Handled := true
   end;
 if (Msg.hwnd = RadioButton2.Handle) then
   begin
     case Msg.message of
       WM_PAINT:
         begin
         ...
         end;
     end
   end


Не помогает и PostMessage и Update и Repaint и Refrash

[Ciber SLasH]

Теперь ясно почему WM_PAINT не срабатывает - я писал в обработчике WM_PAINT следующее:

Код: выделить все

var
 DC: HDC;
 PS: TPaintStruct;
begin
 Handled := false;
 if (Msg.hwnd = RadioButton1.Handle) then
   case Msg.message of
     WM_PAINT:
       begin
         DC := BeginPaint(Msg.hwnd, PS);
         ...
         EndPaint(Msg.hwnd, PS);
         Handled := true
       end;
   end
end;


если поменять DC := BeginPaint(Msg.hwnd, PS); на DC := GetDC(Msg.hwnd);, а EndPaint(Msg.hwnd, PS); на ReleaseDC(Msg.hwnd, DC); - то всё нормально.
Но возник новый вопрос: по какому событию мне производить перерисовку кнопок, если форму оттащили за экран, а потом вернули на место - при этом всё что я рисовал стирается.

[Ciber SLasH]

<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Но возник новый вопрос: по какому событию мне производить перерисовку кнопок, если форму оттащили за экран, а потом вернули на место - при этом всё что я рисовал стирается.<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Решение найдено:

Код: выделить все

type
 TForm1 = class(TForm)
 private
   procedure WMMove(var Msg: TWMMove); message WM_MOVE;
 end;

procedure TForm1.WMMove(var Msg: TWMMove);
var
 Mes: tagMSG;
 Handled: Boolean;
begin
 inherited;
 Mes.hwnd := hRB[1];
 Mes.message := WM_PAINT;
 Mes.wParam := 0;
 Mes.lParam := 0;
 Form1.AppMessage(Mes, Handled);

 Mes.hwnd := hRB[2];
 Form1.AppMessage(Mes, Handled);

 Mes.hwnd := hRB[3];
 Form1.AppMessage(Mes, Handled)
end;
--------------------------------------
где hRb[1] - hRB[3] -- хендлы 3-х RadioButton'ов; AppMessage -- обработчик сообщений (Application.OnMessage := AppMessage)


Единственное осталось загадкой: сообщение WM_MOVE не хочет отлавливаться в обработчике AppMessage, работает только если отлавливать его в отдельном обработчике .