Как реализовать ButtonClick ?

← →
BFG-2000 (2002-09-13 11:52) [0]

Создал кнопку на форме, а вот как вызывать какую-нибудь процедуру при нажатии на эту кнопку - не понимаю.

← →
BOA_KAA © (2002-09-13 12:51) [1]

А в чем проблема-то?

procedure TForm1.Button1Click(Sender: TObject);
begin
MyProcedure;
end;

← →
Poirot © (2002-09-13 17:18) [2]

:^)

← →
BFG-2000 (2002-09-13 17:52) [3]

Форум посвящен программированию на winapi кажется...

И кнопку я создаю вот так: CreateWindowEx(0,"Button"...

← →
Poirot © (2002-09-13 18:50) [4]

Хотелось бы поподробнее вопрос!!!
На ВынАПЫ делаешь????

← →
Алексей Ким © (2002-09-13 19:53) [5]

кинуть пример на мыла?

← →
BFG-2000 (2002-09-14 00:13) [6]

Poirot, да, на WinApi. Подключены модули только messages и system. Создаю форму и кнопку функцией CreateWindowEx. Но создав кнопку не знаю как перехватить нажатие на нее.

Алексей Ким, если можно - то желательно сюда. Не обязательно полный код программы, только то место, где перехватывается нажатие на кнопку...

← →
Denny (2002-09-14 02:46) [7]

Щелкни два раза на кнопке и между begin и end; вставь, например, Close; - форма закроется.

Например -

Procedure Form1.BitBtnClose(Sender: TObqect);
begin
Close;
end;

А если обрабатывать WM_LBUTTONDOWN?

!!!

function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer;
stdcall;
begin
Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
{ Checks for messages }
if (lParam = Button1) and (uMsg = WM_COMMAND) then
yourproc;
if uMsg = WM_DESTROY then
Halt;
end;

Button1 := CreateWindow("Button", "OK", WS_VISIBLE or WS_CHILD or
BS_PUSHLIKE or BS_TEXT,
216, 8, 75, 25, handle, 0, Inst, nil);

...
while(GetMessage(Msg, Handle, 0, 0)) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end; { with }
end.

...
вроде ничево не забыл

Как реализовать ButtonClick ? Найти похожие ветки