Прозрачный TPanel

← →
ARTEMKA © (2003-10-29 23:56) [0]

Мастера как сделать TPanel прозрачным

← →
Dimaxx © (2003-10-30 00:55) [1]

Panel1.Transparent:=True

← →
ARTEMKA © (2003-10-30 01:10) [2]

откуда у него есть Transparent ??

← →
KyRo © (2003-10-30 01:49) [3]

У тебя он что лежит на каком то другом компоненте ??
Есле нет то просто убери все бордюры и сделай углубление 0и он у тебя сольется с формой

← →
ARTEMKA © (2003-10-31 02:13) [4]

ребята для моей проги не поможет ни какие другие выходы, только если сделать её прозрачной, САМУ панельку, поэтому если кто знает, спасибо за ответ, а не знает спасибо за сочувствие!!

← →
Zergling © (2003-10-31 06:44) [5]

Вот тебе панелька прозрачная :)

var
PH: TWinControl;
PB: TButton;

procedure TForm1.Button1Click(Sender: TObject);
begin
PH := TWinControl.Create(Self);
PB := TButton.Create(Self);
PB.Parent := PH;
ph.Left := 10;
ph.Top := 10;
ph.Width := 150;
ph.Height := 150;
ph.Parent := Form1;
ph.Hint := "fffffffffff";
ph.ShowHint := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PH.Visible := False;
end;

← →
Zergling © (2003-10-31 06:49) [6]

Zergling © (31.10.03 06:44) [5]

Опять наврал. НЕ ВЕРИТЬ!

← →
DVM © (2003-10-31 09:36) [7]

> ARTEMKA © (31.10.03 02:13) [4]
> ребята для моей проги не поможет ни какие другие выходы,
> только если сделать её прозрачной, САМУ панельку, поэтому
> если кто знает, спасибо за ответ, а не знает спасибо за
> сочувствие!!

Что ты понимаешь под словом прозрачный. Объясни толком!!!!!!!1

← →
han_malign © (2003-10-31 09:57) [8]

Попробуй:
ControlStyle:=ControlStyle - [csOpaque];
BevelOuter:=bvNone;
BevelInner:=bvNone;
BorderWidth:=0;

Не - не лечит...

Короче "обломайся бабка - мы на корабле"
procedure TCustomPanel.Paint; const Alignments: array[TAlignment] of Longint = (DT_LEFT, DT_RIGHT, DT_CENTER); var Rect: TRect; TopColor, BottomColor: TColor; FontHeight: Integer; Flags: Longint; procedure AdjustColors(Bevel: TPanelBevel); begin TopColor := clBtnHighlight; if Bevel = bvLowered then TopColor := clBtnShadow; BottomColor := clBtnShadow; if Bevel = bvLowered then BottomColor := clBtnHighlight; end; begin Rect := GetClientRect; if BevelOuter <> bvNone then begin AdjustColors(BevelOuter); Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth); end; Frame3D(Canvas, Rect, Color, Color, BorderWidth); if BevelInner <> bvNone then begin AdjustColors(BevelInner); Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth); end; with Canvas do begin if not ThemeServices.ThemesEnabled or not ParentBackground then begin Brush.Color := Color; FillRect(Rect); end; Brush.Style := bsClear; Font := Self.Font; FontHeight := TextHeight("W"); with Rect do begin Top := ((Bottom + Top) - FontHeight) div 2; Bottom := Top + FontHeight; end; Flags := DT_EXPANDTABS or DT_VCENTER or Alignments[FAlignment]; Flags := DrawTextBiDiModeFlags(Flags); DrawText(Handle, PChar(Caption), -1, Rect, Flags); end; end;
- так, что...
А вообще, фигли ты мозги ... - если в лом Control перекрывать - присобчь фрейм - он конечно "тяжелый" - зато с ним, что хочешь, то и делай...

Прозрачный TPanel Найти похожие ветки