Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

Как реализовать 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 вся ветка

Текущий архив: 2002.10.28;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.021 c
1-92522
tytus
2002-10-17 23:46
2002.10.28
OLEAUT32.dll


8-92624
~E~R~R~O~R~
2002-06-15 16:55
2002.10.28
Звук


6-92638
c0pyc@t
2002-08-26 12:27
2002.10.28
IP сервера


14-92699
vopros
2002-10-07 11:28
2002.10.28
у КОГО КАКИЕ ЛЮБИМЫЕ ПЕСНИ?


3-92404
Олег Лузгин
2002-10-08 19:15
2002.10.28
Помогите с выбором, плиз