Apenas uma nota sobre forms transparentes: Apartir do delphi 7 tem as propriedades AlphaBlend e AlphaBlendValue na classe TForm AlphaBlend := True {Habilita transparecia do form} AlphaBlendValue := Range entre 0 e 255, sendo q 0 o form fica 100% invisível. []'s Everson Novka http://www.eversonnovka.com O componente ListView não tem a propriedade de transparencia... para conseguir o que está querendo tem 2 sugestões 1 - deixar o seu form transparente ... dessa maneira o seu listview tambem ficará transparente exemplo: procedure TForm1.FormCreate(Sender: TObject);
const
WS_EX_LAYERED = $00080000;
LMA_COLORKEY = $00000001;
LMA_ALPHA = $00000002;
type
TLayerFunc = function(hwnd : HWND; crKey : COLORREF; bAlpha : BYTE; dwFlags : DWORD) : boolean; stdcall;
var
ExtStyle : LongInt;
LayerFunc : TLayerFunc;
LibHandle : HModule;
begin
LibHandle := LoadLibrary(user32);
if LibHandle > 0 then
begin
LayerFunc := GetProcAddress(LibHandle, 'SetLayeredWindowAttributes');
if Assigned(LayerFunc) then
begin
ExtStyle := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle or WS_EX_LAYERED);
LayerFunc(Handle, rgb(255,0,0), 120, LMA_ALPHA or LMA_COLORKEY);
end;
FreeLibrary(LibHandle);
end;
end; 2 - usar um componente devirado da classe (TListView) http://www.delphifaq.com/faq/delphi/windows_GUI/f670.shtml abraço