Главная страница
    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.007 c
14-95949
IronHawk
2002-08-03 23:59
2002.08.29
Где » архивы старых форумов « ???


3-95637
DeniM
2002-08-07 16:51
2002.08.29
Как же все-таки правильно написать SQL запрос в дельфи? (+)


6-95934
cypher
2002-06-03 22:01
2002.08.29
Подключенные диски


14-95939
Сатир
2002-08-02 13:41
2002.08.29
Поздравляю с успешным переездом


1-95738
Aszbed
2002-08-19 06:14
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский