08-09-2010, 10:56 PM
إقتباس :هل يمكن الاستفادة من هذا الشيء بدون كتابة هذا الكود في كل النماذجأجل، مثال الحدث WM_NCACTIVATE
كود :
private
procedure WMNCActivate(var Msg: TWMNCActivate); message WM_NCACTIVATE;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.ShowModal
end;
procedure TForm1.WMNCActivate(var Msg: TWMNCActivate);
const
ActiveColor: array[Boolean] of TColor = (clRed, clBlue);
begin
Color := ActiveColor[Msg.Active];
inherited;
end;