Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Как убрать с окна рамку 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
4-96025
LKBlack
2002-06-27 10:33
2002.08.29
На чистом API програмно дорисовать к иконке,на иконку есть HICON


1-95851
skyslider
2002-08-17 22:38
2002.08.29
Как удалить выделенную строку в StringGrid


14-95949
IronHawk
2002-08-03 23:59
2002.08.29
Где » архивы старых форумов « ???


1-95743
Alex
2002-08-18 23:50
2002.08.29
Помогите разобраться!!!


1-95884
Novenkij
2002-08-18 15:35
2002.08.29
Помогите с оптимизацией