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

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

Сообщения [D7, Win95/98]

DillerXX ©   (2003-12-22 17:12:00) 

Ну вот значит пишу:


unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure KOT(var Message:TMessage);message BM_CLICK;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TFOrm1.KOT(Var Message:TMEssage);
begin
ShowMessage("");
end;

end.

И нифига. Помню я ето уже задавал, и мне что-то про inherited сказали. Но вот куда его вставить я не знаю.

---

Игорь Шевченко   (2003-12-22 20:54:00) [1]

И нифига. Форме не придет сообщение BM_CLICK - она же не кнопка.

Книжки бы почитать, Петцольда, например, программирование в Windows 95.

---
LMD

---

kostik78ua   (2003-12-22 19:27:00) [2]

Или снеси на форму кнопочку и на обработчик поставь

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage("1");
end;

---

kostik78ua   (2003-12-22 19:25:00) [3]

Смотря чего ты хочешь добиться. Если обработку клика мышки, то вместо BM_CLICK поставь например WM_LBUTTONUP

---

Наверх