Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];

Вниз

Выплывающая форма.   Найти похожие ветки 

← →
Cara ©   (2007-02-21 16:36) [0]

Подскажите. Как сделать форму, постепенно появляющуюся из под другой. Как в WinAmp панель эквалайзера. Может есть компонент для этого.

---

← →
stone ©   (2007-02-21 16:48) [1]

Например по таймеру менять положение/прозрачность

---

← →
Cara ©   (2007-02-21 16:52) [2]

Ежели менять положение, даже просто с помощью FOR, вторая форма налазит на главную, т.е. открывается сверху. Некрасивенько будет! Насчёт прозрачности не понял.

---

← →
stone ©   (2007-02-21 16:56) [3]

> Насчёт прозрачности не понял.

Есть такое свойство AlphaBlend в компании с AlphaBlendValue может делать форму прозрачной.

---

← →
RASkov   (2007-02-21 17:41) [4]

> [0] Cara ©   (21.02.07 16:36)

Вот посмотри, правда здесь все на одной форме, ну может пригодится..

Это *.DFM
---------------------------------------------------------------------------
object Form1: TForm1
 Left = 192
 Top = 114
 Width = 321
 Height = 230
 Caption = "Form1"
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = "MS Sans Serif"
 Font.Style = []
 OldCreateOrder = False
 DesignSize = (
   313
   196)
 PixelsPerInch = 96
 TextHeight = 13
 object RadioGroup1: TRadioGroup
   Left = 8
   Top = 110
   Width = 153
   Height = 73
   Anchors = [akRight, akBottom]
   Caption = "RadioGroup1"
   Columns = 3
   ItemIndex = 0
   Items.Strings = (
     "Item1"
     "Item2"
     "Item3"
     "Item4"
     "Item5"
     "Item6")
   TabOrder = 6
 end
 object ComboBox1: TComboBox
   Left = 8
   Top = 55
   Width = 145
   Height = 21
   Anchors = [akRight, akBottom]
   ItemHeight = 13
   TabOrder = 0
   Text = "ComboBox1"
 end
 object CheckBox1: TCheckBox
   Left = 20
   Top = 83
   Width = 97
   Height = 17
   Anchors = [akRight, akBottom]
   Caption = "CheckBox1"
   TabOrder = 1
 end
 object TrackBar1: TTrackBar
   Left = 168
   Top = 43
   Width = 45
   Height = 150
   Anchors = [akRight, akBottom]
   Orientation = trVertical
   TabOrder = 2
 end
 object TrackBar2: TTrackBar
   Left = 212
   Top = 43
   Width = 45
   Height = 150
   Anchors = [akRight, akBottom]
   Orientation = trVertical
   TabOrder = 3
 end
 object TrackBar3: TTrackBar
   Left = 260
   Top = 43
   Width = 45
   Height = 150
   Anchors = [akRight, akBottom]
   Orientation = trVertical
   TabOrder = 4
 end
 object Panel1: TPanel
   Left = 0
   Top = 0
   Width = 313
   Height = 41
   Align = alTop
   TabOrder = 5
   object Button1: TButton
     Left = 8
     Top = 8
     Width = 75
     Height = 25
     Caption = "Show"
     Enabled = False
     TabOrder = 0
     OnClick = Button1Click
   end
   object Button2: TButton
     Left = 92
     Top = 8
     Width = 75
     Height = 25
     Caption = "Hide"
     TabOrder = 1
     OnClick = Button2Click
   end
 end
end

Это *.pas
-----------------------------------------------------------------------------
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
 TForm1 = class(TForm)
   ComboBox1: TComboBox;
   CheckBox1: TCheckBox;
   TrackBar1: TTrackBar;
   TrackBar2: TTrackBar;
   TrackBar3: TTrackBar;
   Panel1: TPanel;
   Button1: TButton;
   Button2: TButton;
   RadioGroup1: TRadioGroup;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var N: Integer;
begin
 Button1.Enabled:=False;
 for N := 75 to 230 do begin
  Height:=N; Application.ProcessMessages;
 end;
 Button2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
var N: Integer;
begin
 Button2.Enabled:=False;
 for N := 230 downto 75 do begin
  Height:=N; Application.ProcessMessages;
 end;
 Button1.Enabled:=True;
end;

end.

---

← →
Cara ©   (2007-02-21 18:03) [5]

Интересно! Спасибо. Попробую. А насчёт прозрачности, постепенно открывая форму, можно уменьшать прозрачность. Тоже ничего!

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.045 c