8 советов по Delphi:
1. Как вызвать внешний exe-файл в Delphi?
использует WinProcs;
.
начинать
WinExec(......);
.
конец.
Это ничем не отличается от вызова функций библиотеки Паскаль.
2. Как изменить шрифт и цвет подсказки Delphi
Свойства TApplication в Delphi включают HintColor и HintPause.
Вы можете изменить цвет подсказки в приложении, установив HintColor и установив HintPause.
Измените время срабатывания подсказки.
Но к сожалению: шрифт Hint в Delphi изменить нельзя.
3. Как рассчитать дату в Delphi
Вычислить время проще всего в Delphi следующим образом:
вар сс: TDateTime
Фактически, Tdatetime — это число двойной точности с плавающей запятой, а его десятичная точка представляет количество дней:
Например, ss := ss + 20 означает 20 дней от ss, если ss = 234,567.
Это означает 234,567 дней, начиная, конечно же, с 0 года нашей эры!
4. Как запрограммировать ScreenSaver с помощью Delphi (нуль)?
Хранитель экрана — это не что иное, как исполняемая программа, расширение которой изменено на .SCR. Она принимает два параметра командной строки:
-s параметры команды запуска
-c настроить параметры команды
Windows запускает программу, отправляя ей параметр командной строки -s.
Следует отметить, что: окно программы не имеет рамок и заголовков, размер окна должен соответствовать размеру экрана;
Обработка оконных событий.
5. Как изменить имя каталога в Delphi
Вызовите функцию RenameFile, например:
RenameFile('c:/wang/temp', 'c:/wang/tmp');
6. DELPHI отображает файлы изображений JPEG.
Просто добавьте JPEG в список использований.
В модуле JPEG имеется класс TJPEGImage, который может определять переменную, например Jpeg, и вызывать ее с помощью LoadFromFile.
Импортируйте файл JPEG, а затем используйте Canvas.Draw(x,y,Jpeg) формы для его отображения.
7. Обработка файлов формата Jpeg в Delphi...
(1) Добавьте модуль JPEG в раздел «Использование».
(2) Определите глобальную переменную, например var AJPEG: TJPEGImage;
(3) Добавьте: в событие OnCreate формы:
Canvas.Pen.Color:=clBlack;
Canvas.Pen.Style:=psSolid;
Canvas.Brush.color:=clBtnFace;
Canvas.Brush.Style:=bsSolid; //Это установка некоторых свойств Canvas для удобства в будущем.
//Очистить форму и загрузить новый файл JPEG;
AJpeg:=TJpegImage.Create;//Динамически генерировать AJpeg;
AJpeg.LoadFromFile('D:/Temp.jpg') //После создания AJpeg загружаем файл JPEG;
(4).Добавить в событие OnPain формы.
Canvas.Rectangle(2,2,560,430); //Рисуем черный прямоугольник, окружающий изображение;
х:=10; у:=10;
Form1.Canvas.Draw(x,y,AJpeg); //Выводим файл JPEG с (x,y) в верхнем левом углу;
//Фактически, его функция — восстановление графики при ее уничтожении;
(5) Добавьте следующее к событию OnClick кнопки «Загрузить» или «Обзор»:
начинать
если OpenPictureDialog1.Выполнить, то
начинать
AJpeg.Free; //Освободите старый AJpeg;
AJpeg:=TJpegImage.Create //Создаем новый AJpeg;
AJpeg.LoadFromFile(OpenPictureDialog1.Filename); //Загрузить файл JPEG;
конец;
Canvas.Rectangle(2,2,560,430); //Очистить форму;
х:=10;
у:=10;
Form1.Canvas.Draw(x,y,AJpeg); //Отображение нового AJpeg;
конец;
8. Начальный экран DELPHI3.