Суббота, 28.11.2020, 11:40 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » свой дизайн формы на delphi
свой дизайн формы на delphi
Anton93Дата: Четверг, 18.11.2010, 15:18 | Сообщение # 1
Продвинутый
Зарегистрирован: 06.01.2010
Группа: Модераторы
Сообщений: 320
Статус: Offline
как мне сделать чтобы форма реагировала на рисованный интерфейс (верхняя панелька, где находятся свернуть, растянуть, закрыть) она рисованная, чтобы можно её было например перетаскивать

ICQ: 41896
 
vvova15Дата: Суббота, 01.01.2011, 19:02 | Сообщение # 2
Участник
Зарегистрирован: 24.04.2010
Группа: Пользователи
Сообщений: 83
Статус: Offline
вот так можно таскать форму за картинку(Timage):

Code

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
   const SC_DragMove = $F012; { a magic number }
begin
   ReleaseCapture;
   Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

чтобы свернуть форму

Code
form1.WindowState:=wsMinimized;

чтобы закрыть
Code
Form.close

чтобы развернуть
Code
form1.WindowState:=wsMaximized;

свернуть обратно
Code
form1.WindowState:=wsNormal;

дерзай.



ICQ 185-398
 
delphicode » Delphi » Вопросы по Delphi » свой дизайн формы на delphi
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2020 Хостинг от uCoz