Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

BFG-2000 © (2002-09-13 11:52:00)
Создал кнопку на форме, а вот как вызывать какую-нибудь процедуру при нажатии на эту кнопку - не понимаю.

Алексей Ким (2002-09-14 10:15:00) [1]
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.

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

Poirot (2002-09-14 08:27:00) [2]
!!!

Metal Knight (2002-09-14 03:00:00) [3]
А если обрабатывать WM_LBUTTONDOWN?

Denny (2002-09-14 02:46:00) [4]
Щелкни два раза на кнопке и между begin и end; вставь, например, Close; - форма закроется.

Например -

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

BFG-2000 (2002-09-14 00:13:00) [5]
Poirot, да, на WinApi. Подключены модули только messages и system. Создаю форму и кнопку функцией CreateWindowEx. Но создав кнопку не знаю как перехватить нажатие на нее.

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

Алексей Ким (2002-09-13 19:53:00) [6]
кинуть пример на мыла?

Poirot (2002-09-13 18:50:00) [7]
Хотелось бы поподробнее вопрос!!!
На ВынАПЫ делаешь????

BFG-2000 (2002-09-13 17:52:00) [8]
Форум посвящен программированию на winapi кажется...

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

Poirot (2002-09-13 17:18:00) [9]
:^)

BOA_KAA (2002-09-13 12:51:00) [10]
А в чем проблема-то?

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

Наверх

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