Содержание материала

Вот исходный код для псевдо-заголовка. Данная форма может содержать любые элементы управления VCL, которые вы хотите установить в области заголовка главной формы. По существу, это - независимый диалог со следующими свойствами:

Code:

Caption='' {NULL строка}

Height={высота области заголовка}

Width={высота всех компонентов на форме}

BorderIcons=[] {пусто}

BorderStyle=bsNone

FormStyle=fsStayOnTop

 

И, наконец, исходный код для Form2:

 

Code:

unit Unit2;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm2 = class(TForm)

   ComboBox1: TComboBox;

   procedure FormCreate(Sender: TObject);

   procedure ComboBox1Change(Sender: TObject);

   procedure FormResize(Sender: TObject);

private

   { Private declarations }

public

   { Public declarations }

end;

 

var

Form2: TForm2;

 

implementation

 

uses Unit1;

 

{$R *.DFM}

 

procedure TForm2.FormCreate(Sender: TObject);

begin

Height := ComboBox1.Height - 1;

Width := ComboBox1.Width - 1;

end;

 

procedure TForm2.ComboBox1Change(Sender: TObject);

begin

Form1.SetFocus;

end;

 

procedure TForm2.FormResize(Sender: TObject);

begin

ComboBox1.Width := Width;

end;

 

end.

 

Файл проекта (.DPR) довольно простой:

 

Code:

program Project1;

 

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2};

 

{$R *.RES}

 

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.Run;

end.

 

Это все!

 

Хотя некоторые авторы книг утверждают:

 

"Вы не можете установить компоненты Delphi в заголовок окна, точнее, не существует никакого способа установить их там."

 

Зато существует иллюзия...

 

©

Взято с https://delphiworld.narod.ru

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить