| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите с прозрачностью [Delphi, Windows]

Revolter ©   (2003-11-17 13:21:00) 

создаю MCK проект, кидаю на него KOLLabel, ставлю у него прозачность в true, подключаю к проекту модуль:

implementation

uses new_form;

{$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}

{$IFDEF KOL_MCK}
{$I transp_test_1.inc}
{$ENDIF}

procedure TForm1.Label1Click(Sender: PObj);
begin
    showform
end;

end.

Модуль new_form:

unit new_form;
{$DEFINE TEST_SHOWMODAL}

interface

uses
KOL,Windows;

function showform:boolean;

implementation

//{$DEFINE TEST_SHOWMODAL}

type
PNForm = ^TNForm;
TNForm = object (TControl)
   procedure ButtonClick( Sender: PObj );
end;

function NewNForm(parent : PControl;Caption:string):PNForm;
begin
    result := PNForm(NewForm(parent,Caption));
end;

function showform:boolean;
var
Form_ :PNForm;
begin
Result := False;
Form_ := NewNForm(applet,'New Form');
with Form_^ do
  try
    ModalResult:=idCancel;
    Form_.WindowState:=wsMaximized;
    if ShowModal = idOk then
    begin
      Result := True;
    end;
  finally
  if assigned(form_) then Form_.Close;
      Free_And_Nil(Form_);
  end;
end;

end.

В результате при нажатии на KOLLabel открывается прозрачная форма. Как сделать прозрачность KOLLabel, чтобы это влияло только на KOLLabel?

---

Revolter   (2003-11-22 13:44:00) [1]

посмотрел?

---

Gandalf   (2003-11-18 09:41:00) [2]

Обычно такие симптомы при неправильном создании формы, домой приду посмотрю внимательнее.

---

Наверх