Текущий архив: 2007.04.22;
Скачать: CL | DM;

Вниз

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

← →
Ezorcist   (2007-03-31 15:10) [0]

?

---

← →
Virgo_Style ©   (2007-03-31 15:23) [1]

PostMessage, SendMessage
message (directive)

---

← →
Ezorcist   (2007-03-31 15:51) [2]

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

---

← →
Джо ©   (2007-03-31 15:52) [3]

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

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

---

← →
Ezorcist   (2007-04-01 09:55) [4]

> В разделе Справки 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?

---

← →
MikePetrichenko ©   (2007-04-01 11:04) [5]

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

---

← →
Ezorcist   (2007-04-01 11:23) [6]

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


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

---

← →
Leonid Troyanovsky ©   (2007-04-01 12:34) [7]

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

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

WM_USER+100 < CM_BASE

--
Regards, LVT.

---

← →
Leonid Troyanovsky ©   (2007-04-01 12:38) [8]

> 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.

---

← →
Ezorcist   (2007-04-01 12:52) [9]

Leonid Troyanovsky

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

---

← →
MikePetrichenko ©   (2007-04-02 08:35) [10]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.04.22;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.037 c