VPF::обращение к свойству созданного объекта

BLACK_KOT

Дата 15.4.2009, 14:32 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


program BLACK_KOT;

uses Messages,Windows;

var
W, Button1,Button2,edit1,memo1: 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_CHAR: if Wparam=$20 then beep(100,100);

    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_TOPMOST  , '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);
  edit1:=CreateWindowEx(ES_MULTILINE,'EDIT','',WS_BORDER or WS_VISIBLE or WS_CHILD,50,50,100,20,W, 0, hInstance, nil);

SetFocus(edit1);
end;

begin
CreateMySelf;

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

как мне обратиться к свойствам созданных объектов? например как на winapi поменять цвет формы или обратиться к строке для ввода и выяснить,что в неё написали?

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

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

dvamaster

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

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

Загрузка ...

Опытный

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

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

По хенделу окна.

В твоем случае переменная hnd в процедуре окна
Ловишь WM_ERASEBKGND, и закрашиваешь клиентскую область с помощью функций GDI

Для контролов заменяешь процедуру (в новой обязательно надо вызовать старую) функцией SetWindowLong

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

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

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

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

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

BLACK_KOT

Дата 16.4.2009, 09:57 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


var s:array[1..30] of char;
st:string;
edit1:HWND
...
SendMessage(edit1,WM_GETTEXT,30,Integer(@s)); st:=s; //забираем текст в окошке


...
edit1:=CreateWindowEx(ES_MULTILINE,'EDIT','',WS_BORDER or WS_VISIBLE or WS_CHILD,80,5,108,20,W2, 0, hInstance, nil);

вот так приходится вытаскивать текст из окна. ноэт наверно криво? можно проще? нет?

покажите хоть один пример, как работать со свойствами созданных объектов, плизз!

и что такое MSDN, чем вы меня поприкаете, а я даж не пойму о чём эт вы!

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

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

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