Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

Как убрать с окна рамку 3х мерности   Найти похожие ветки 

 
msg   (2002-08-16 08:56) [0]

Допустим новый проект, как мне из окна по дефолту сделать плоское окно с единственной одинарной рамкой и сохранением возможности изменения размера, SetWindowLong что то такого не умеет. Подскажите плиз


 
Севостьянов Игорь   (2002-08-16 10:46) [1]

Это будет твое окно (программа) или чужое необходимо изменять ?


 
Rem   (2002-08-16 13:58) [2]

Если надо окно без заголовка, то можно извернуться так:
- установить для окна свойство: BorderStyle := bsNone;
- разместить на окне четыре панели, без заголовков, и установить для них свойства:
TopPanel: Height := 4; Align := alTop; Cursor := crSizeNS;
BottomPanel: Height := 4; Align := alBottom; Cursor := crSizeNS;
LeftPanel: Width := 4; Align := alLeft; Cursor := crSizeWE;
RightPanel: Width := 4; Align := alRigth; Cursor := crSizeWE;

- прописать для панелей обработчики события OnMouseDown:
procedure TForm.LeftPanelMouseDown;
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $f001, 0);
end;
procedure TForm.RigthPanelMouseDown;
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $f002, 0);
end;
procedure TForm.BottomPanelMouseDown;
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $f006, 0);
end;
procedure TForm.TopPanelMouseDown;
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $f00e, 0);
end;

- А если для OnMouseDown формы написать такой обработчик, то форму можно будет перетаскивать мышкой:
procedure TForm.FormMouseDown;
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $f012, 0);
end;


Немного коряво... да работает :)


 
Mozart_mcs   (2002-08-19 01:45) [3]

Если я правильно понял вопрос,
то тебе надо создать такого плана форму
а затем занести её в хранилище или депозитарий.
Делается это - легко:
Создаёшь форму, меняешь в ней всё что надо,
(можешь добавить компоненты) потом сохраняешь,
кликаешь правой кнопкой мыши, и выбираешь
"add to repository".
Там указываешь все данные, инфо, название ...
Затем, когда нужно, берёшь file->new->other и там находишь
свою заготовку. Короче, идея понятна, надеюсь.. если что?
пиши на мыло.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
4-96023
Дмитрий К.
2002-06-26 19:29
2002.08.29
Как отследить нажатие кнопки


8-95908
Oleg Shashin
2002-04-20 03:40
2002.08.29
Устанавливаем свой WallPaper для Windows


1-95864
RazorbladE
2002-08-16 12:30
2002.08.29
Высота строки в DBGrid


3-95649
lety
2002-08-07 18:22
2002.08.29
в процессе открытия таблицы


14-95971
FLIZ
2002-07-30 16:44
2002.08.29
Кто достоин носить звание





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский