Программирование
Главная » FAQ |
Для обработчика событий OnKeyPress напишите: if (key in ['1','2','3','4','5','6','7','8','9','0']) then key:=#0; |
В обработчике событий напишите: begin Application.terminate; WinExec(GetCommandLine, SW_SHOWNORMAL); end; |
В обработчике событий напишите var dlg_text:string; dlg_title:string; begin dlg_text:='Это текст диалогового окна'; dlg_title:='Это заголовок'ж if MessageBox(Application.Handle, PChar(dlg_text), PChar(dlg_title), MB_YESNO+MB_ICONINFORMATION)=IDYES then ShowMessage('Вы нажали кнопку ДА!'); end; |
Создайте новое приложение и исключите из него форму (Project|Remove from project). Далее измените модуль приложения: Program top_window; uses ExtCtrls, Windows; begin //Ждем 10 секунд sleep(10000); //Выводим сообщение MessageBox(0, 'Вам сообщение!', 'Внимание', MB_OK or MB_ICONERROR or MB_SYSTEMMODAL); //Выходим Exit; end. |
В обработчике событий пишем: var i:integer; array_of_color: array [0..3] of TColor; begin //Задаем цвета array_of_color[0]:=clRed; array_of_color[1]:=clGreen; array_of_color[2]:=clYellow; //Раскрашиваем for i:=0 to RadioGroup1.Items.Count-1 do RadioGroup1.Button[i].Font.Color:=array_of_color[i]; end; |