nikad nije kasno...
ako pomaže evo kod
/////
unit transparentno;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Menus;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
WS_EX_LAYERED = $00080000;
LMA_COLORKEY = $00000001;
LMA_ALPHA = $00000002;
var
Form1: TForm1;
implementation
function SetLayeredWindowAttributes(hwnd : HWND; crKey : COLORREF;
bAlpha : BYTE; dwFlags : DWORD) : boolean; stdcall; external user32
name 'SetLayeredWindowAttributes';
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
ExtStyle : LongInt;
begin
ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, RGB(255,0,0), 100, LMA_ALPHA
or LMA_COLORKEY);
end;
////
stavis neki bitmap na formu,recimo sliku čovjeka oko kojeg je boja rgb(255,0,0)(to je crvena boja,barem mislim) i da vidiš nepravilnog oblika
ako smeta za win98 ono "translucent form" se može izbaciti
dosta primjera o transparenciji se može naći na
[
www.delphi3000.com]
Blago onom tko rano poludi,
pa mu život u veselju prođe