Помогите с прозрачностью

← →
Revolter (2003-11-17 13:21) [0]

создаю 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?

← →
Gandalf © (2003-11-18 09:41) [1]

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

← →
Revolter (2003-11-22 13:44) [2]

посмотрел?

Помогите с прозрачностью Найти похожие ветки