MainForm преобразовать в градации серого

← →
Anger (2005-03-18 14:35) [0]

Вообщем хочу реализовать такую фичу, при выходе из моей проги когда открыт диалог, "Выход? или нет?" Чтоб главная форма из цветной перешла в градацию серого и наоборот соответственно. Вообщем как в ХРюше. т.е плавный переход. Помогите плиз где копать.

← →
X-Disa © (2005-03-19 13:37) [1]

Можно получить canvas экрана (через GetDC(0)), связать с битмапом, и соответственно изменить область формы (GetWindowRect)

Попробуй вот это

private
protected Procedure LastFocus(var Mess : TMessage) ; message WM_ACTIVATE;
{ Private declarations }

.......

implementation

Procedure TForm1.LastFocus(var Mess : TMessage) ;
Begin

IF Mess.wParam = WA_INACTIVE
Then // Пишешь сюда что форма должна делать, изменить
// свой Альфа бленд или еще ченить
Else // либо пусть есть как есть

Inherited;

End;
{$R *.dfm}

У меня работает так календарь, он весит все время на экране и если Актив контрол на нем тогда он оранжевый если нет то серый
Попробуй это использовать, правдо незнаю годится ли для твоего примера.

MainForm преобразовать в градации серого Найти похожие ветки