Пятница, 04.07.2025, 09:40
Приветствую Вас Гость
Меню сайта


Копилка для дальнейшего развития ресурса.
 
Форма входа
Интересное
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Программирование на Delphi.

Программирование

Главная » 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;