Мой DELPHI – Программирование

Вопрос:
Как заставить TEdit не 'пикать' при нажатии недопустимых клавиш?
Ответ:
Перехватите событие KeyPress и установите key = #0 для недопустимых клавиш.

Пример:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
	if ((UpCase(Key) < 'A') or (UpCase(Key) > 'Z')) then
		Key := #0;
end;

Вопрос:
При показе максимизированное формы она перекрывает taskbar и не выравнивается по верху экрана.
В чем тут дело?
Ответ:
Это может произойти когда свойство position формы установленно в poScreenCenter.
Установите position = poDefault.

Вопрос:
Как преобразовать цвета в строку - название цвета  VCL?

Ответ:

Модуль graphics.pas содержит
функцию ColorToString() которое преобразует допустимое значение TColor в его
строковое представление используя либо константу-название цвета (по возможности)
либо шестнадцатиричную строку. Обратная функция – StringToColor() Прочитать остальную часть записи »

Вопрос:
Как убрать кнопку с названием моей программы из Панели Задач(Taskbar)?

Ответ:

Отредактируйте файл-проекта
(View -> Project Source) Добавьте модуль Windows в раздел uses. Application.ShowMainForm
:= False; в строку после “Application.Initialize;”. Добавьте ShowWindow(Application.Handle,
SW_HIDE); в строку перед “Application.Run;” Прочитать остальную часть записи »

Вопрос:
Как сменить дисковод, откуда  MediaPlayer проигрывает аудио CD?
Ответ:
См. пример.

Пример:

MediaPlayer1.FileName := 'E:';