Скачать: CL | DM;

Сообщения   Найти похожие ветки 

← →
DillerXX ©   (2003-12-22 17:12) [0]

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


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 сказали. Но вот куда его вставить я не знаю.

---

← →
kostik78ua   (2003-12-22 19:25) [1]

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

---

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

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

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

---

← →
Игорь Шевченко ©   (2003-12-22 20:54) [3]

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

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

---
LMD

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c