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

Вопрос:
Можно ли создать форму, которая получает дополнительные параметры в методе Сreate?
Ответ:
Просто замените конструктор Create класса Вашей формы. Прочитать остальную часть записи »

Вопрос:

Как создать эквивалент TEdit но только с выравниваением вводимого текста по центру или по правой стороне?

Ответ:

TEdit не поддерживает
выравниваение текста по центру и по правой стороне – лучше использовать компонент
TMemo. Вам понадобится запретить пользователю нажимать Enter, Ctrl-Enter и всевозможные
комбинации клавиш со стрелками, чтобы избежать появления нескольких сторк в
Memo. Этого можно добиться и просматривая содержимое текста в TMemo в поисках
кода возврата каретки (13) и перевода строки(10) на событиях TMemo Change и
KeyPress. Можно также заменять код возврата каретки на пробел – для того чтобы
позволять вставку из буфера обмена многострочного текста в виде одной строки. Прочитать остальную часть записи »

Вопрос:

Как в компоненте TMemo перехватить нажатие Ctrl-V и вставить специальный текст не из буфера обмена
(clipboard)?

Ответ:
См. пример.
Пример:

uses ClipBrd;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
	if ((Key = ord('V')) and (ssCtrl in Shift)) then
		begin
			if Clipboard.HasFormat(CF_TEXT) then
				ClipBoard.Clear;
			Memo1.SelText := 'Delphi is RAD!';
			key := 0;
		end;
end;

Вопрос:
Как узнать, что курсор мыши над моей формой?
Ответ:
Можно использовать функцию GetCapture() из Windows API.

Примечание: Cм. документацию Windows для информации об ограничениях функции GetCapture. Прочитать остальную часть записи »

Вопрос:
Как определить наличие сопроцессора?

Ответ:

В отличие от общепринятого
мнения не всее клоны 486/586/686/ и Pentium имеют сопроцессор для вычислений
с плавающей запятой. В примере определяется наличие сопроцессора и под Win16
и под Win32. Прочитать остальную часть записи »