Для прозрачных форм с прозрачностью более чем в 1 бит (т.е. либо область не видима, либо видима) нужно использовать Windows Layers (оверлэйные слои)
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
|