Форум: "WinAPI";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизКак реализовать 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;
← →
Metal Knight (2002-09-14 03:00) [8]А если обрабатывать WM_LBUTTONDOWN?
← →
Poirot (2002-09-14 08:27) [9]!!!
← →
Алексей Ким (2002-09-14 10:15) [10]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.
...
вроде ничево не забыл
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c