Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Регулирование "слоев" приложения


Автор: boobie 4.8.2013, 13:20
Здравствуйте! На форме есть 2 объекта TImage, и один TSpeedButton.
Как вывести Image1 поверх Image2, а на Image1 положить Speedbutton? Поставил Control->Bring to Front, у Image1 и Speedbutton - Image1 стал перекрывать Speedbutton.
Как настроить иерархию компонентов (что поверх чего должно находиться)?

Автор: boobie 4.8.2013, 14:05
Вроде разобрался.
Если вы все делаете мышкой, то проблем не возникнет - располагаете компоненты, если что-то вдруг не видно, то ПКМ по компоненту Control->засунуть вниз или вытащить наверх.
Если же вы регулируете местоположение в коде, или же пишете все ручками, то после установки размеров и местоположения нескольких компонентов на одном участке формы (если есть подозрения, что компоненты накладываются друг на друга), то необходимо прописывать каждому компоненту "bringtofront" в нужном порядке.
Код

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    SpeedButton1: TSpeedButton;

    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  sb:tspeedbutton;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

speedbutton1.Left:=100;
speedbutton1.Top:=100;
sb:=tspeedbutton.Create(form1);
sb.Parent:=speedbutton1.Parent;
sb.Top:=100;
sb.Left:=100;
sb.Height:=50;
sb.Width:=50;
sb.Enabled:=true;
sb.Visible:=true;

image1.Top:=100;
image1.Left:=100;
image2.Top:=100;
image2.Left:=100;

image2.BringToFront;//вытаскиваем наверх сначала image2
image1.BringToFront;//затем поверх имэйдж1
sb.bringtofront;        //поверх самопальную кнопку
speedbutton1.bringtofront;//и т.д.
end;

end.


Правильно я рассуждаю? 
Почему с обычным Button-ом так нельзя? Он всегда находится поверх Image и Speedbutton-ов!!

Автор: Чучмек 4.8.2013, 14:44
Цитата(boobie @  4.8.2013,  14:05 Найти цитируемый пост)
Почему с обычным Button-ом так нельзя? Он всегда находится поверх Image и Speedbutton-ов!!

Потому что TButton это окно,  а TSpeedButton и TImage - нет.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)