Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
скажите кто знает как сделать системное меню [свернуть,развернуть,закрыть] с левой стороны как в маке?

Вопрос задал: casio (статус: Посетитель) Вопрос отправлен: 25 ноября 2011, 19:49 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: bugmenot

Здравствуйте, victor_as!
неудобно наверное штаны через голову...
копипастить под лицензией GPL

procedure TForm1.FormClick(Sender: TObject);
const
  Flags = TPM_TOPALIGN or TPM_RIGHTALIGN;
  {$IF SizeOf(TRect) mod SizeOf(TPoint) > 0}{$MESSAGE ERROR 'WUT?'}{$IFEND}
  PtsPerRect = SizeOf(TRect) div SizeOf(TPoint);
var
  Menu: HMENU;
  ClientRect: TRect;
begin
  Assert(HandleAllocated);
  Menu := GetSystemMenu(Handle, False);
  Win32Check(Menu <> 0);
  ClientRect := Self.ClientRect;
  MapWindowPoints(Handle, HWND_DESKTOP, ClientRect, PtsPerRect);
  OffsetRect(ClientRect, 1, -1);
  TrackPopupMenu(Menu, Flags, ClientRect.Right, ClientRect.Top, 0, Handle, nil);
  PostMessage(Handle, WM_NULL, 0, 0);
end;

Ответ отправил: bugmenot (статус: 3-ий класс) Время отправки: 27 ноября 2011, 16:57 Оценка за ответ: 5

Мини-форум вопроса

bugmenot (статус: 3-ий класс), 30 ноября 2011, 18:52 [#1]: где мое очко? виконання програми розпочинається з того самого мiсця, де призупинилося.

casio (статус: Посетитель), 1 декабря 2011, 23:15 [#2]: bugmenot: извените только увидел ответ! СПАСИБО ОГРОМНОЕ

1 декабря 2011, 23:16: Статус вопроса изменён на решённый (изменил автор вопроса — casio)

1 декабря 2011, 23:40: Вопрос вновь открыт (изменение состояния произвёл автор вопроса — casio)

casio (статус: Посетитель), 1 декабря 2011, 23:46 [#3]: bugmenot: извените ну это немножко не то, но это тоже нужно было за это +, я имел ввиду как изменить на форме положение[сврнуть,развернуть,закрыть] с правой стороны на левую

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.