菜鸟问题：如何在一控件重绘时对另一控件也重绘？

[Aeolian]

我想通过拦截WM_Paint消息来处理，怎样能够判断当前的WM_Paint消息来自哪个控件？

[aiirii]

消息一般都會帶有一個 handle, handle 對應的就是相應的控件的handle

function FindControl(Handle: HWnd): TWinControl;

應該可以找到

[ICMGDCHN]

拦截PAINT会死循环呀

[ssq237712]

如果是控件，你可以给控件定义个OnPaint事件，不要轻易拦截WM_Paint消息，处理的不好就会死循环

[Aeolian]

声明：
procedure WMTabPaint(var AMsg:TWMPaint); Message WM_Paint;

procedure TForm1.WMTabPaint(var AMsg: TWMPaint);
begin
if AMsg.DC=getdc(控件.Handle) then begin
另一控件.Repaint;
end else inherited;
end;

但AMsg.Dc总不等于getdc(控件.Handle)，请大虾们指正

[aiirii]

你這樣實現應該有問題的,
我的想法,要麼實現兩個控件的關聯, 如 dataSource 和 dataset 的方式,
要麼, 在A控件內部的處理OnPaint, 然後, 發消息通知所屬窗口,
或者, 自己遍歷所屬窗口的子控件

[whitetiger8]

一般用OnPaint即可了。
拦截的话也有句柄可以判断

[linzhengqun]

type
TForm1 = class(TForm)
Shape1: TShape;
Shape2: TShape;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
OldProc: TWndMethod;
public
{ Public declarations }
procedure NewWinProc(var Message: TMessage);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
OldProc:=Shape1.WindowProc;
Shape1.WindowProc:=NewWinProc;
end;

procedure TForm1.NewWinProc(var Message: TMessage);
begin
if Message.Msg=WM_PAINT then
begin
Shape1.Shape:=stCircle;
Shape2.Invalidate;//重绘
end;
OldProc(Message);
end;

end.