| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выплывающая форма. [D7]

Cara ©   (2007-02-21 16:36:00) 

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

---

Cara   (2007-02-21 18:03:00) [1]

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

---

RASkov   (2007-02-21 17:41:00) [2]

> [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.

---

stone   (2007-02-21 16:56:00) [3]

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

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

---

Cara   (2007-02-21 16:52:00) [4]

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

---

stone   (2007-02-21 16:48:00) [5]

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

---

Наверх