Вопрос: Как определить наличие сопроцессора? Ответ:
В отличие от общепринятого
мнения не всее клоны 486/586/686/ и Pentium имеют сопроцессор для вычислений
с плавающей запятой. В примере определяется наличие сопроцессора и под Win16
и под Win32. Прочитать остальную часть записи »
Вопрос: Как узнать о нажатии "non-menu" клавиши в момент когда меню показано? Ответ: Создайте обработчик сообщения WM_MENUCHAR. Прочитать остальную часть записи »
Вопрос: Как использовать анимированный курсор? Ответ:
Во первых необходимо получит
handle курсора, а затем определить его в массиве курсоров компонента TScreen.
Индексы предопределенных курсоров системы отрицательны, пользователь может определить
курсор, индекс которого положителен. Прочитать остальную часть записи »
Вопрос Как проигрываеть MPEG файл в Delphi-программе? Ответ: Если в системе Windows MMSystem установлен декодер MPEG - используя компонент TMediaPlayer Пример: procedure TForm1.Button1Click(Sender: TObject); begin MediaPlayer1.Filename := 'C:\DownLoad\rsgrow.mpg'; MediaPlayer1.Open; MediaPlayer1.Display := Panel1; MediaPlayer1.DisplayRect := Panel1.ClientRect; MediaPlayer1.Play; end;
Вопрос: Как определить номер текущей строки в TMemo? Ответ:
Чтобы определить номер
текущей строки любого объекта управления edit – пошлите ей сообщение EM_LINEFROMCHAR
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
LineNumber : integer;
begin
LineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0);
ShowMessage(IntToStr(LineNumber));
end;