Скачать: CL | DM;

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

← →
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]

посмотрел?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c