| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как послать форме message и отреагировать на него?

Ezorcist ©   (2007-03-31 15:10:00) 

?

---

MikePetrichenko   (2007-04-02 08:35:00) [1]

> procedure killme(var Msg:TMessage); message WM_KILLME;

Мдя. На парметры как-то не посмотрел.

---

Ezorcist   (2007-04-01 12:52:00) [2]

Leonid Troyanovsky

С-П-А-С-И-Б-О! :))

---

Leonid Troyanovsky   (2007-04-01 12:38:00) [3]

> Ezorcist   (01.04.07 09:55) [4]

>    procedure killme(var Message:TMsg); message WM_KILLME;

procedure killme(var Msg:TMessage); message WM_KILLME;

--
Regards, LVT.

---

Leonid Troyanovsky   (2007-04-01 12:34:00) [4]

> MikePetrichenko ©   (01.04.07 11:04) [5]

> А вот WM_KILLME = WM_USER + 100; ни есть гуд, потому как
> пользуется VCL CM_XXX

WM_USER+100 < CM_BASE

--
Regards, LVT.

---

Ezorcist   (2007-04-01 11:23:00) [5]

> ни есть гуд, потому как пользуется VCL CM_XXX


На что заменить что бы было гуд?

---

MikePetrichenko   (2007-04-01 11:04:00) [6]

Почему оно выдает 2 0 не знаю и проверять не особо хочется.
А вот WM_KILLME = WM_USER + 100; ни есть гуд, потому как пользуется VCL CM_XXX

---

Ezorcist   (2007-04-01 09:55:00) [7]

> В разделе Справки message (directive) пример имеется в наличии.
>
>


Спасибо, еще вопрос wParam и lParam это два числа, которые я могу использовать как параметры? Почему то в этом коде:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Unit2;

const
 WM_KILLME = WM_USER + 100;

type
 TForm1 = class(TForm)
   Frame21: TFrame2;
 private
   { Private declarations }
 public
   { Public declarations }
   procedure killme(var Message:TMsg); message WM_KILLME;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.killme(var Message:TMsg);
begin
 Showmessage(inttostr(message.wParam)+' '+inttostr(message.lParam));
end;

end.

unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TFrame2 = class(TFrame)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

implementation

uses unit1;

{$R *.dfm}

procedure TFrame2.Button1Click(Sender: TObject);
begin
postmessage(form1.Handle,WM_KILLME,1,2);
end;

end.


собщение выдает '2 0', хотя передаю 1 и 2?

---

Джо   (2007-03-31 15:52:00) [8]

> [2] Ezorcist   (31.03.07 15:51)
> можно пример реакции?

В разделе Справки message (directive) пример имеется в наличии.

---

Ezorcist   (2007-03-31 15:51:00) [9]

можно пример реакции?

---

Virgo_Style   (2007-03-31 15:23:00) [10]

PostMessage, SendMessage
message (directive)

---

Наверх