VPF::таскать форму,которую сам создал

BLACK_KOT

Дата 15.4.2009, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

создаю форму, кнопки, обработчик событий формы.

как таскать форму за метку то я знаю :

Код


procedure TForm1.Label1MouseDown(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;

а как мне свою, созданную форму потаскать за её тело?

Код


program BLACK_KOT;

uses Messages,Windows;

var
W, Button1,Button2: HWND;
WinClass: TWndClass;
Msg: TMsg;


  function WndProc(hnd, wmsg, wparam, lparam: integer): integer; stdcall;
  begin
  Result:=0;
  case wmsg of
    WM_COMMAND:
      begin
      if lparam=Button1 then Beep(100,100);
      if lparam=Button2 then PostQuitMessage(0);
      end;


    WM_DESTROY:  begin PostQuitMessage(0); end;

  else Result:=DefWindowProc(hnd, wmsg, wparam, lparam);
  end;
  end;

Procedure CreateMySelf;
begin
  with WinClass do
    begin
      lpszClassName:='cln';
      lpfnWndProc:=@WndProc;
      hCursor:=LoadCursor(hInstance, IDC_ARROW);
      hbrBackground:=COLOR_3DSHADOW;
    end;
  RegisterClass(WinClass);
  W:=CreateWindowEx(WS_EX_WINDOWEDGE, 'cln', 'àíàãðàììà', WS_VISIBLE or WS_POPUPWINDOW, 200, 200, 200, 150, 0, 0, hInstance, nil);
  Button1:=CreateWindowEx(BS_RIGHTBUTTON, 'BUTTON', 'êíîïêà', (WS_TABSTOP or WS_VISIBLE or WS_CHILD), 5, 5, 96, 25, W, 0, hInstance, nil);
  Button2:=CreateWindowEx(BS_RIGHTBUTTON, 'BUTTON', 'X', (WS_TABSTOP or WS_VISIBLE or WS_CHILD), 175, 5, 20, 20, W, 0, hInstance, nil);

end;

begin
CreateMySelf;

while GetMessage(Msg, 0, 0, 0) do
  begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
  end;
end.

--------------------

.. я - демо версия Бога от Microsoft..

dvamaster

Дата 15.4.2009, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10

Из DRKB

Код


unit DragMain;

interface

uses
  SysUtils, WinTypes, WinProcs,  Messages,
  Classes, Graphics, Controls, Forms, Dialogs, StdCrtls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure ButtonClick(Sender: TObject);
  private        
    procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCCHitTest;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1. WMNCHitTest(var M: TWMNCHitTest); 
begin
  inherited;
  if M.Result = htClient then
     M.Result := htCaption;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

end.

а теперь поищи ифу в MSDN по WM_NCCHITTEST

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

BLACK_KOT

Дата 15.4.2009, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

в справке WinApi команды WM_NCCHITTEST я не нашёл.

вот ещё:
добавил строку:

Код


 edit1:=CreateWindowEx(ES_MULTILINE,'EDIT','',WS_BORDER or WS_VISIBLE or WS_CHILD,50,50,100,20,W, 0, hInstance, nil);

а как мне текст введёный забрать (присвоить текстовой переменной ) из этой строки?

--------------------

.. я - демо версия Бога от Microsoft..

BLACK_KOT

Дата 15.4.2009, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: нет
Всего: -1

а вот и решение.

Код


    WM_LBUTTONDOWN:  //таскаем форму
      begin
      ReleaseCapture;
      SendMessage(W,WM_SYSCOMMAND,$F012, 0);
      end;

--------------------

.. я - демо версия Бога от Microsoft..

bems

Дата 16.4.2009, 04:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

а хелп по $F012 он наверное нашел...

--------------------

Обижено школьников: 8

dvamaster

Дата 16.4.2009, 07:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10

у мну Delphi 2006 и 2009, там MSDN красиво расписан, вот от туда по WinAPI 99% инфы беру

Добавлено через 46 секунд

Цитата(bems @ 16.4.2009, 07:01

)

а хелп по $F012 он наверное нашел...

Во-во

Добавлено через 1 минуту и 42 секунды
в инете у майкрософта MSDN есть 100%, там и Вистовские примочки включены

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »