Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 04.04.2015, 12:38   #1
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,469
По умолчанию Удалить или спрятать воротничок у Form1 в Delphi

Как удалить верхнюю синюю полоску (на которой Form1.Caption) совсем или сделать ее невидимой?

Умею спрятать форму целиком:
Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if button1.Caption = 'спрятать' then
  begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;                           
// эти две скрывают всё, но форма как была так и есть, хотя её и не видно.
  Form1.TransparentColorValue := clRed;
  Form1.transparentcolor := true;
  Form1.Color := clRed;
//кнопками можно производить действия
  button1.Caption := 'показать';
  end
else
  begin
  Form1.TransparentColorValue := clRed;
  Form1.transparentcolor := false;
  Form1.Color := clMenu;
  Form1.BorderStyle:=bsSizeable;
  form1.Brush.Style:=bsSolid;
  button1.Caption := 'спрятать';
  end;
end;

end.
Искать как: "Создать форму любой формы в Delphi " ?

Может быть так:
Form1.BorderStyle:=bsNone; // "чистый лист" (отсутствие у окна границ и заголовка) ?



Ответ получен, извините за беспокойство.
Репутация: полный "0"

Последний раз редактировалось zvygin1964; 04.04.2015 в 13:33.
zvygin1964 вне форума
Старый 04.04.2015, 16:36   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Может быть так:
Form1.BorderStyle:=bsNone; // "чистый лист" (отсутствие у окна границ и заголовка) ?
Именно так
I'm learning to live...
Stilet вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Показать или спрятать объект на форме flouwjke Общие вопросы Delphi 3 14.04.2012 11:41
Передать в процедуру имя формы (Form1 или Form2) tarakan1983 Общие вопросы Delphi 2 19.11.2011 00:39
Спрятать или показать кнопку окна в таскБаре Altera Win Api 3 09.12.2009 09:03
Form1.Caption + Form1.sTabSheet artemavd Общие вопросы Delphi 9 22.09.2009 15:55
Form1.Hide и Form1.Show... Roof Общие вопросы Delphi 9 13.10.2007 13:33