Delphi:прозрачна форма-видими компоненти

[REHIT]

как мога да направя така че да се вижда само TITLE-то на програмата а формата да е невидима ,НО компонентите в нея да си се виждат.Имам един проект има прозрачен кръг в формата даже то тва не е част от формата щото като го кликна формата става неактивна и все едно сам натиснал друго.

[SAGE]

Никога не съм правил "прозрачни" форми, но виж долното дали ще ти помогне и ако успееш изпрати ми E-Mail или пиши пак във форума, за да се науча и аз[^]

[Win32] Как правильно работать с прозрачными окнами (стиль WS_EX_TRANSPARENT)?
A>:
Стиль окна-формы указывается в CreateParams (если не перепутал).
Только вот когда перемещаешь его, фон остается со старым куском экрана.
Чтобы этого не происходило, то когда pисуешь своё окно, запоминай,
что было под ним,а пpи пеpемещении восстанавливай.

HDC hDC = GetDC(GetDesktopWindow()) тебе поможет..

т.е. предполагам че трябва да си направиш клас "наследник" на TForm и в частта при създаването на формата да използваш параметър "WS_EX_TRANSPARENT", но явно ще има проблеми при преместването на формата[]

[SAGE]

Опитах и се получи[^][]



Създаваш клас наследник на TForm:

unit Forms_N;//пример за "невидима" форма


{$S-,R-,D-,L-,W-}

interface


uses Forms, Controls, SysUtils, WinTypes, Classes;


type
	TForm_N = class(TForm)

protected

public
	procedure CreateParams(var Params: TCreateParams); override;

end;


implementation

procedure TForm_N.CreateParams(var Params: TCreateParams);
begin
	inherited CreateParams(Params);
	Params.ExStyle:=Params.ExStyle or WS_EX_TRANSPARENT;
end;

end.

След това формата която искаш да стане "невидима" трябва да я направиш от клас "TForms_N' вместо от "TForms" и в "Uses" да включиш "TForms_N"

[xsmind]

Само да добавя, че е по-добре да се използва TCustomForm, вместо TForm.

И CreateParams е protected.

[Blade™]

дай да започнем от тук:

На кое делфи (5,6,7)?

какво искаш да постигнеш всъщност?