Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 920

•  TDictionary Custom Sort  6 028

•  Fast Watermark Sources  5 817

•  3D Designer  8 635

•  Sik Screen Capture  6 150

•  Patch Maker  6 588

•  Айболит (remote control)  6 578

•  ListBox Drag & Drop  5 439

•  Доска для игры Реверси  95 357

•  Графические эффекты  6 792

•  Рисование по маске  5 963

•  Перетаскивание изображений  4 966

•  Canvas Drawing  5 341

•  Рисование Луны  5 065

•  Поворот изображения  4 606

•  Рисование стержней  3 263

•  Paint on Shape  2 505

•  Генератор кроссвордов  3 396

•  Головоломка Paletto  2 698

•  Теорема Монжа об окружностях  3 492

•  Пазл Numbrix  2 293

•  Заборы и коммивояжеры  2 981

•  Игра HIP  1 944

•  Игра Go (Го)  1 858

•  Симулятор лифта  2 204

•  Программа укладки плитки  1 928

•  Генератор лабиринта  2 368

•  Проверка числового ввода  2 052

•  HEX View  2 375

•  Физический маятник  2 009

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как спрятать заголовок формы



Программист и инженер оказались друг возле друга во время долгого полета из Москвы в Нью-Йорк. Программист обращается к инженеру и спрашивает, не желает ли тот скоротать время игрой в одну занятную игру. Инженеру очень хотелось спать и он, вежливо отказавшись, прильнул к окну, чтобы хоть немного вздремнуть. Программист же, продолжая настаивать, обьясняет, что игра, мол, очень занятная и простая. - Я задаю вам вопрос и если вы не знаете ответа, вы платите мне пять баксов. А потом вы задаете мне вопрос. Если я не знаю ответа, то плачу соответсвенно пять баксов вам. Но инженер снова вежливо отказывается и пытается уснуть. Ну, программист уже самозавелся и говорит:
- Ну ладно, если вы не знаете ответа, то платите мне $5, а если я не знаю, то плачу вам $50!! Это в конце концов заинтересовало инженера, тем более,что он видит, что от программиста отделаться не так легко. Он соглашается. Програмист cпрашивает:
- Каково расстояние между Луной и Солнцем?
Инженер не говоря ни слова лезет в карман, достает бумажник, вытаскивет $5 и протягивает их программисту. Очередь инженера:
- Что идет вверх на трeх ногах, а спускается на четырех? - спрашивает он программиста и отворачивается к окну. Программист ошалело на него посмотрел и достает свой Лаптоп. Прошелся по всем своим поисковым системам. Ничего. Тогда подключается к бортовому телефону, рыщет по Интернету, прочесал всю библиотеку Конгресса. Ничего. Посылает е-мейлы всем своим сотрудникам с запросом. Ничего. Через час он будит инженера и дает ему $50. Инженер аккуратненько свернул деньги, положил их в кармашек и повернулся к окну спать. Охр@невший программист трясет инженера за плечо и спрашивает:
- Так какой же все-таки ответ?!
Не говоря ни слова, инженер достает свой кошелек, дает программисту $5 и поворачивается к окну, чтобы докимарить до Нью-Йорка...

Во-первых, перепишите у формы метод "CreateParams", объявив его в protected или public секции:


procedure CreateParams(var Params: TCreateParams); override;

Затем создайте сам код метода CreateParams(), выглядящий так:


procedure TForm1.Createparams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    Style := (Style or WS_POPUP) and (not WS_DLGFRAME);
end;

Надо надеяться, что вы обеспечите некоторый UI-механизм для перемещения и закрытия окна.








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте