Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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.57 MB
Время: 0.038 c
7-92743
TCrash
2002-08-14 19:37
2002.10.28
А _РЕАЛЬНО_ кто-нибудь писал свой сервис на делфи


1-92542
SergeyDon
2002-10-16 10:33
2002.10.28
Создание компонента


4-92793
setar
2002-09-16 11:10
2002.10.28
Управление Com портом


14-92728
werr
2002-10-09 09:30
2002.10.28
USB 2.0, 1.1, 1.0


1-92495
KonuhovSergey
2002-10-18 14:07
2002.10.28
Помогите с експортом в Excel





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский