Delphi7 - Форум программистов и сисадминов Киберфорум

Delphi7

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Блоги

Сообщество

Поиск

Напечатать последовательность в определенном порядке Delphi

Запись от Mashapersik размещена 21.04.2019 в 12:38

Показов 1518 Комментарии 1

Метки delphi7, делфи, списки

Дана непустая последовательность слов, в каждом из которых от 1 до 8 строчных латинских букв; между словами - пробел, за последним словом - точка. Напечатать эти слова в следующем порядке: сначала по алфавиту все слова из одной буквы, затем - по алфавиту все двухбуквенные слова...

Mashapersik

Как изменить системный курсор?

Запись от Markus_13 размещена 02.03.2012 в 04:59

Показов 6067 Комментарии 0

Метки delphi7, setsystemcursor, winapi

Простой способ замены системного курсора:

Например, если хотим загрузить свой курсор на время работы проги - делаем так:

1) прописываем в var 2 переменных:

Delphi
1
oc,nc:hCursor;

2) меняем обычный курсор (напр. в OnCreate формы):

Delphi
1
2
3
oc:=CopyIcon(LoadCursor(0,IDC_ARROW));//сохраняем текущий курсор
nc:=LoadCursorFromFile('C:\WINDOWS\Cursors\dinosau2.ani');//грузим наш курсор из файла
SetSystemCursor(nc,OCR_NORMAL);//меняем

...

Markus_13

{c0Der}

Выравнивание текста в TEdit

Запись от Markus_13 размещена 02.03.2012 в 04:31

Показов 5800 Комментарии 3

Метки coding, delphi, delphi7, tcntredit

Использование динамической подмены классов, для изменения выравнивания текста в стандартном компоненте TEdit:

1) добавляем новый тип в раздел "type":

Delphi
1
2
3
4
  TCntrEdit = class(TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams);override;
  end;

2) добавляем процедуру создания параметров после "implementation":

Delphi
1
2
3
procedure TCntrEdit.CreateParams(var Params: TCreateParams);
begin
  inherited

...

Markus_13

{c0Der}

Статистика блогов

Всего блогов	1,223
Всего записей	7,251
Записи за последние сутки	3

Опции

Случайная запись блога

RSS лента

Архив
< Август 2026
Вс	Пн	Вт	Ср	Чт	Пт	Сб
26	27	28	29	30	31	1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31	1	2	3	4	5

Глобальное облако меток

.net 1с administration algorithms alt linux android arduino bash bash debug bash scripting blkid box2d c c# c++ call to action canbus cdc claude cmake com-порт console cookie certain site cpp sorting curl datastructure domain dos electronics f# fshap module fsharp game gamedev git github go golang gpio graph holywar http infinity-world java javascript js js html base64 gif favicon js программа kubernetes networks lazarus learning leetcode linux linux command line linux solids microcontroller mingw mobiledev ms-dos native aot nc ncurses netcat nuget osi model owenlogic parallel pattern player posgresql postgres postgresql powershell problem proxy qlcdnumber qtcreator race condition sdl sdl3 sdl3_image sdl3_mixer sdl3_ttf seo seo-продвижение server setsettingsrestoredonclose sorting sorting algorythms stability stm32 suave tcp tcp network traffic telnet ttf tthread ui usb kernel messages usb mount history usb mounting users uuid ux vb 6.0 virtual wasm web webassembly whisper windows windows 10 wow автозаполнение аналитика асу тп блокировка бп3 бсп будильник веб гриб даты диалоговое окно дизайн динамический список документ доступность заводской номер заполнить запрет редактирования даты запрос ка2 калькулятор катастрофа колонки команда формы контент контроль контроль уникальности копирование кредитный калькулятор макет массив данных модуль объекта модуль формы нейронные сети номеклатура обработка оптимизация отбор отчет очистить очистка перемещение перечисления печатная форма позиции пользователь права доступа прием данных прикладная информатика пробег проведение проведение документа разработка сайтов расширение расширения регистр накопления регистр сведений реквизит реквизит формы реквизиты решение задач сайты семантика сервер серийный номер си скд слайдер создание документа создание документов создание сайтов сокет спецтехника справочник статус таблица табличная часть таймер технический аудит уведомление удаление фосфор функция часы экология электронная почта ядерное топлив

Поиск по метке

Новые блоги и статьи Все статьи Все блоги /
Жара жесть. kumehtar 18.08.2026 Пролетают летом дни Тридцать пять жары в тени. Каждый август год от года Дарит жаркую погоду.	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

Наверх

Сообщение форума

Отменить изменения