| Автор
| Сообщение |
|
|
|
Цитата |
|
Может кто-то подобное делал помогите
Возникли такие задачи:
1 Создать окно "по рисунку" (неправильной геометрической формы).
2 Дать возможность пользователю перетаскивать это окно за любую часть рисунка. |
|
| В начало |
|
 |
|
|
 |
|
|
|
Цитата |
|
| Только это не апи, хотя используется модуль windows |
|
| В начало |
|
|
|
|
| В начало |
|
|
|
|
|
Цитата |
|
| Цитата: | | Я б изменил свою судьбу, да исходников нет |
Хочешь пришлю?  |
|
| В начало |
|
|
 Шурик
Я живу тут....
Возраст: 42
Знак зодиака: 
Зарегистрирован: 15.01.2003
Сообщения: 1951
Откуда: Киев
|
|
|
Цитата |
|
Ну почему ж не АПИ? Регионы то от АПИ.
Другое дело что алгоритм их формирования вне АПИ.
Таскание формы можно сделать изящней. Достаточно реагировать только на нажатие мыши.
| Код: | procedure TForm1.XxxxxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Clipped and ( Button = mbLeft ) then
begin
ReleaseCapture;
SendMessage( Handle, WM_NCLButtonDown, HTCAPTION, 0 );
end;
end; |
to BvR Я же тебе это как-то делал в примере. Из него как раз и вытащил.
_________________
Ответ готов, готов ли твой вопрос? |
|
| В начало |
|
|
|
|
|
Цитата |
|
Именно так я и сделал.
Всем огромное спасибо!!! |
|
| В начало |
|
|
|
|
|
Цитата |
|
to Шурик
Не злись. Пример не мой. Просто в архивах полазил и нашел. А у себя я использую как раз твой код. |
|
| В начало |
|
|
Шурик
Я живу тут....
Возраст: 42
Знак зодиака:
Зарегистрирован: 15.01.2003
Сообщения: 1951
Откуда: Киев
|
|
|
Цитата |
|
to BvR
Да я не злился совсем. Просто немного тебе оппонирую. Не воспринимай это негативно. При заочном общении, когда кого-то подправляешь, иногда непросто выбрать тон высказвания так, чтобы оно не воспринималось агрессивным. Это чувствуешь отвечая, но не всегда хватает терпения или времени, чтобы продумать элегантный ответ.
_________________
Ответ готов, готов ли твой вопрос? |
|
| В начало |
|
|
|
