Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Непрозрачность формы при активности

Автор: Demonix 27.3.2008, 02:16

Прозрачность формы контролируется ScrollBar'ом.
К примеру выставили какое нить значение, к примеру AlphaBlendValue:=100.
А как убрать прозрачность, когда форма активна?
Работал с OnActive и On Deactive - запутался и в итоге ни чего не получилось.

вот такая проблема (((

Автор: Burka 27.3.2008, 02:31

Активна это наверно когда она фокус получает.
попробуй события onEnter, onExit

Автор: Demonix 27.3.2008, 04:56

Burka,

Ну в данном случае я имел ввиду активность, когда на неё щёлкнули, когда нажимают чёт на ней.

Автор: Burka 28.3.2008, 13:15

Ну делай тогда по PressKey и MouseDown =)
Или четко сформулируй при каких события должно что то происходить.

Автор: VICTAR 28.3.2008, 14:44

Код


procedure TfrmMain.FormActivate(Sender: TObject);
begin
   AlphaBlend := False;
end;

procedure TfrmMain.FormDeactivate(Sender: TObject);
begin
  AlphaBlend := True;
end;

Автор: SandyProgrammer 28.3.2008, 16:51

VICTAR, вроде бы всё должно работать, но не хочет, только что сам проверил... Странно.
По событию OnDeactivate, форма не становится прозрачной... (Delphi 7).

Автор: VICTAR 28.3.2008, 17:02

Держи

Автор: SandyProgrammer 28.3.2008, 17:56

VICTAR, спасибо! Значит это через сообщения реализуется. Будем знать.

Автор: VICTAR 28.3.2008, 18:04

Не за что)