void __fastcall TForm1::FormCreate(TObject *Sender)
{
HWND hPanel1 = Panel1->Handle;
const LONG old_style = GetWindowLong(hPanel1, GWL_STYLE);
SetWindowLong(hPanel1, GWL_STYLE, old_style | WS_SIZEBOX);
SetWindowPos(hPanel1, 0, 0, 0, 0, 0,
SWP_FRAMECHANGED | SWP_NOMOVE |
SWP_NOSIZE | SWP_NOZORDER
);
}
вопрос по TLabel
Как сделать так чтобы Tlabel можно было увеличивать\ уменьщать как обычную форму? Тоесть нужно сделать, чтобы при подведению к краю курсор изменял вид на *-resize и можно было изменить размер.
Ja by skazal primerno tak:
tebe nuzno poimat mysh kogda ona podxodit k kraju TLabel.
eto raz.
dva. obrabatyvat sevelenije myshy. i kak tolko ona saprikosajetsia s labelom, ruckami meniat ikonku, na nuznuju. plius tebe tut nuzno budet uvelicivat label, kak tvoja myshka budet sevelitsia.
v kratce: onMouseMove: meniat ikonku, proveriat na nazatije knopki myshki, i po prinuzdeniju uvelicivat ili umensat label.
tebe nuzno poimat mysh kogda ona podxodit k kraju TLabel.
eto raz.
dva. obrabatyvat sevelenije myshy. i kak tolko ona saprikosajetsia s labelom, ruckami meniat ikonku, na nuznuju. plius tebe tut nuzno budet uvelicivat label, kak tvoja myshka budet sevelitsia.
v kratce: onMouseMove: meniat ikonku, proveriat na nazatije knopki myshki, i po prinuzdeniju uvelicivat ili umensat label.
Хотел так сделать однако эт очень муторно писать для каждого TLabel, может есть что-нибудь наподобии OnMouseEnter и OnMouseLeave?
и ещё один вопросик какое событие возникает когда окно теряет фокус?
и ещё один вопросик какое событие возникает когда окно теряет фокус?
ну а тогда скажите мне, пожалуйста, вот у меня есть форма находящаяся поверх всех окон(fsStayOnTop), как мне выполнить какое-то действие когда форма теряет фокус?
Цитата:
Originally posted by BeOne
ну а тогда скажите мне, пожалуйста, вот у меня есть форма находящаяся поверх всех окон(fsStayOnTop), как мне выполнить какое-то действие когда форма теряет фокус?
ну а тогда скажите мне, пожалуйста, вот у меня есть форма находящаяся поверх всех окон(fsStayOnTop), как мне выполнить какое-то действие когда форма теряет фокус?
Добавляешь на форму ApplicationEvents1 (из Additional). Его свойство onDeactivate.
Цитата:
Originally posted by BeOne
Как сделать так чтобы Tlabel можно было увеличивать\ уменьщать как обычную форму? Тоесть нужно сделать, чтобы при подведению к краю курсор изменял вид на *-resize и можно было изменить размер.
Как сделать так чтобы Tlabel можно было увеличивать\ уменьщать как обычную форму? Тоесть нужно сделать, чтобы при подведению к краю курсор изменял вид на *-resize и можно было изменить размер.
TLabel напрямую не получится у него нет Handle. А вот например Panel можно т. о. Форма, на нее панель, на панель Label->Align = alClient;
Код: