Помощб по делфи
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Помощб по делфи - 2008-07-10 15:45:07.790000
|
|
|
StalkerKill
Сообщений: 434
Оценки: 0
Присоединился: 2007-10-22 11:08:53.660000
|
Кто может помочь??? - Хочу сделать в делфи программу без окаемки, т.е. -> border style - bsNone. Нужно что бы ее так же можно было передвигать курсором. Что нужно зделать?? я просто этот момент в программировании пропустил, а теперь он понадобился!
|
|
|
RE: Помощб по делфи - 2008-07-10 17:03:46.040000
|
|
|
vvviperrr
Сообщений: 301
Оценки: 0
Присоединился: 2007-03-20 21:33:16.790000
|
обрабатывай mousedown на форме, какой нить флаг ставь тру. обрабатывай mousemove, если флаг = тру то получить координаты курсора и сместить форму. обрабатывай mouseup, флаг ставь false. в двух словах так
|
|
|
RE: Помощб по делфи - 2008-07-10 20:50:37.243333
|
|
|
yTr42
Сообщений: 224
Оценки: 0
Присоединился: 2008-07-06 23:58:53.516666
|
При нажатии скажем какой нибудь кнопки-обрабатывай событие и перемещение окна - напимер: Button1.Click: Form.Position(x,y)=MousePosition(x,y); Что нибудь на подобие…
|
|
|
RE: Помощб по делфи - 2008-07-10 23:12:08.436666
|
|
|
Xelle
Сообщений: 20
Оценки: 0
Присоединился: 2008-07-10 23:07:46.580000
|
procedure THKForm.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DRAGMOVE : Longint = $F012; begin ReleaseCapture; Perform (WM_SYSCOMMAND,SC_MOVE+2,0); end; тягаю форму за панель
|
|
|
RE: Помощб по делфи - 2008-07-16 14:30:31.450000
|
|
|
KentOne
Сообщений: 178
Оценки: 0
Присоединился: 2008-07-15 16:30:46.030000
|
Нужно объявить процедуру в частных объявлениям (после ключевого слова Private):
private
{ Private declarations }
procedure WMNCHitTest (var M: TWMNCHitTest); message wm_NCHitTest; В области implementation описываем процедуру так:
implementation
{$R *.DFM}
procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
Мы выдаём клиентскую область окна за заголовочную область. Взято из проэкта Delphi World.
|
|
|
|
|