Delphi для начинающих

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

Войти

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

Другие темы раздела
Delphi Изменения в строке в Memo1 https://www.cyberforum.ru/ delphi-beginners/ thread164641.html Добрый вечер. В мемо1 есть строки вида: 001 - e 111 e 002 - e 112 e 003 - e 113 e 004 - e 114 e ... помогите написать цикл, чтобы в мемо2 появилось: 001-e111e 002-e112e 003-e113e	Программное нажатие клавиш мыши Delphi Уже 3 день думаю как сотворить сие)) Хочу в игре нажимать программно мышь через определенные промежутки времени, ну и передвигать курсор в другие участки)) В общем получается своего рода читерская программа)) Делаю для себя. Проблема состоит еще в том, что в игре стоит GameGuard и поэтому запустив программу она работает, исправно нажимается программно мышь, но при активизации окна игры все...
Delphi Вставки из C++ https://www.cyberforum.ru/ delphi-beginners/ thread164609.html Как в Delphi делать вставки из C++? Например в C++ вставки из Delphi делаются так: pascal { //Какой-то код на Паскале. } А как наоборот, ведь из ассемблера в Delphi же можно вставлять: asm	Delphi Создать простейший блокнот Сейчас я покажу пример на Delphi, как можно создать простой текстовый редактор похожий на Блокнот, с использованием компонента Memo Для нашего текстового редактора мы будем использовать компонент Memo. И так, компонент Memo на форме, очищаем его от стандартного текста Memo1 Memo.Lines.Clear, растягиваем на всю форму Memo.Align := alClient, теперь делаем нашему текстовому редактору вертикальные и... https://www.cyberforum.ru/ delphi-beginners/ thread164608.html
Delphi Почему программа считает, что -4/-1 < -6/-2 Вот код программы: unit Kursovaya_MatMod; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type	Delphi QReport https://www.cyberforum.ru/ delphi-beginners/ thread164603.html подскажите пожалуйста. Я добавила Qreport, но почему то во вкладке только QRChart, как добавить остальные компанетны???
Delphi Перевести код с Pascal https://www.cyberforum.ru/ delphi-beginners/ thread164559.html Здравствуйте, мне необходимо написать на языке Delphi простейшую программу. на паскаль я ее с легкостью выполнила, но совершенно не понимаю как она должна выглядить в делфи. объясните пожалуйста. (процедуры ввода и вывода содержаться в моем пользовательском модуле) program zadanie1; Uses Wincrt, Windos, mod_at; var N: char; {выполняемое арифметическое действие} a, b, {числа} c,d,f:...	Загрузка процедуры из DLL - ошибка. Delphi Всем привет. Проблема в следующем. Есть библиотека Login.dll, которая вызывает открытие формы ввода пароля и юзернэйма. Вообщем вот... library LOGIN; uses SysUtils, Classes, uLogin in 'uLogin.pas' {fLogin}, uLoginData in '..\common\uLoginData.pas'; {$R *.res}
Delphi Console Detected!!! Добрый день всем программерам и нубам в этой области. Буду вынужден вас потревожить и попросить вас помочь мне с задачей. Она очень лёгкая но как оказалось на практике не так уж и легко реализовать. Смысл задачи в том чтобы записать 5 чисел по порядку и Если в этих пяти числах будет повторяться два числа к примеру так 1 2 2 4 5 то сложить последние два 4+5 того 9 и вывести результат То есть 9... https://www.cyberforum.ru/ delphi-beginners/ thread164502.html	Delphi как установить overbyte в delphi 7 как установить overbyte в delphi 7 можно пожалуйста по подробнее ссылка на компонент http://www.overbyte.be/frame_index.html https://www.cyberforum.ru/ delphi-beginners/ thread164500.html
Разбор Строк Delphi Здравствуйте Программисты =) Помогите Пожалуйста разобрать это =) и вывести всё в StringGrid Код: > Received: 353 1 = хрЪ :АНИМЕ +]{imoto 4032569 35 31 0 Nippon @Namikiri 5881565 29 24 40 - Makyo 9933627 29 31 80 > Received: 366 :end of names 353 - начало списка. 1, знак равенства ( = ) - пропускаем. хрЪ - название планеты.	Delphi Калькулятор НУ я только начал изучать делфи и написал практический полноценный калькулятор осталось только 2 вещи написать процедуру "точки" и не как немогу решить какое условие написать чтобы запетая ставилась только 1 раз. А вот вторая вещь это стирание по символьно из строки Стринга (что то типа бэк спэйса) можете дать только оператор пробовал задействовать операторы паскаля но не получилось Жду ответов... https://www.cyberforum.ru/ delphi-beginners/ thread164484.html

iama

1360 / 988 / 119

Регистрация: 30.07.2010

Сообщений: 5,297

09.09.2010, 19:32

Правое выравнивание текста в компоненте Edit - Delphi - Ответ 949163

09.09.2010, 19:32. Показов 29602. Ответов 9

Метки (Все метки)

Ответ

Delphi

procedure RJustifyEdit(var ThisEdit : TEdit); 
var 
 Left, Width : Integer; 
 GString : String; 
 Rgn : TRect; 
 TheCanvas : TControlCanvas; 
begin 
  TheCanvas := TControlCanvas.Create; 
  try 
    TheCanvas.Control := ThisEdit; 
    GString := ThisEdit.Text; 
    Rgn     := ThisEdit.ClientRect; 
    TheCanvas.FillRect(Rgn); 
    Width   := TheCanvas.TextWidth(GString); 
    Left := Rgn.Right - Width - 1; 
    TheCanvas.TextRect(Rgn, Left, 0, GString); 
  finally 
    TheCanvas.Free; 
  end ; 
end;

некрасиво, но лучше чем ничего

Вернуться к обсуждению:
Правое выравнивание текста в компоненте Edit Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

09.09.2010, 19:32

Готовые ответы и решения:

Выравнивание строки в компоненте RichEdit
Необходимо выровнять по центру строку в компоненте RichEdit. Например: 1-я строка по левому краю;...

Реализовать циклическое передвижение строки в компоненте Edit.
Всем доброго времени суток. Есть такое задание: Ввести строку в компонент Edit. Реализовать...

Текст, набранный в компоненте Edit, сохранить в Microsoft Word
Здравствуйте. Помогите разобраться с компонентом Edit. Хочу сделать программу на подобии учебной...

Увеличение текста в компоненте
как сделать, чтобы при нажатии на какую-то компоненту текст в RichEdit увеличивался. н-р, нажали и...

	09.09.2010, 19:32

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

09.09.2010, 19:32

Помогаю со студенческими работами здесь

Перенос длинного текста в компоненте TreeView
Привет Народ, срочно нужна ваша помощь...столкнулся с проблемой переноса длинного текста в...

Организовать поиск текста в компоненте RichEdt
procedure TForm3.FindDialog1Find(Sender: TObject); begin with FindDialog1 do begin if...

Перенос строки текста в компоненте label
Здравствуйте! Подскажите пожалуйста, как в компоненте label осуществить перенос строки текста на...

Не изменяется цвет текста на компоненте TGroupBox
Привет всем ! У меня такой вот вопрос: В Delphi 7 на форму кидаю TGroupBox - изменяю цвет и...

Новые блоги и статьи
Fortran и WinAPI: как создать приложение с графическим интерфейсом hw_wired 28.01.2025 Fortran — это один из старейших высокоуровневых языков программирования, широко используемый в науке и инженерии уже несколько десятилетий. Его название происходит от "Formula Translation" (перевод. . .	Списки в Haskell hw_wired 28.01.2025 Haskell является функциональным языком программирования, который отличается лаконичностью синтаксиса и мощными абстракциями. Важным концептом в Haskell являются списки — упорядоченные коллекции. . .	Функции высшего порядка в Haskell hw_wired 28.01.2025 Haskell – это современный функциональный язык программирования, который получил широкое распространение благодаря своей выразительности и мощным абстракциям. Одной из ключевых особенностей Haskell. . .	Как в цикле обойти все поля объекта в JavaScript bytestream 28.01.2025 Объекты в JavaScript представляют собой фундаментальные структуры данных, которые позволяют хранить и организовывать связанную информацию в виде пар ключ-значение. Каждый объект можно представить как. . .	Как выбрать строки в DataFrame по значению столбца в Pandas bytestream 28.01.2025 В области анализа данных библиотека Pandas стала незаменимым инструментом для работы с табличными данными в Python. Эта мощная библиотека предоставляет множество функций для эффективной обработки и. . .	Как сделать перенос строки в Bash bytestream 28.01.2025 При работе с командной оболочкой Bash разработчики часто сталкиваются с необходимостью форматирования текстового вывода, где ключевую роль играет правильное управление переносами строк. Умение. . .
Поиск подстроки в строке с помощью Bash bytestream 28.01.2025 Поиск подстроки в строке является одной из важных задач в программировании и обработке текстов. Применение такого поиска можно найти в самых разных областях, от анализа данных до разработки. . .	[golang] 169. Majority Element alhaos 28.01.2025 Тут надо вернуть "мажористый" элемент который встречается в слайсе больше чем в половине случаев. По условиям задачи во входных данных такой элемент обязан присутствовать. / / . . .	Когда лучше использовать LinkedList вместо ArrayList в Java bytestream 28.01.2025 При разработке Java-приложений выбор правильной структуры данных играет ключевую роль в обеспечении эффективности и производительности программы. ArrayList и LinkedList являются двумя. . .	Какой ответ HTTP лучше использовать: 403 Forbidden или 401 Unauthorized, когда недостаточно прав bytestream 28.01.2025 В современной веб-разработке правильная обработка ошибок и точное информирование клиентов о статусе их запросов играют критическую роль в создании надежных и безопасных приложений. Особое внимание. . .	Как получить список всех файлов коммита в Git bytestream 28.01.2025 Система контроля версий Git представляет собой мощный инструмент для управления изменениями в программном коде и других файлах проекта. В основе работы Git лежит концепция коммитов - снимков. . .	Как записать только часть изменений файла в Git bytestream 28.01.2025 В процессе разработки программного обеспечения часто возникает необходимость сохранить только определенные изменения из множества внесенных правок в файлах. Система контроля версий Git предоставляет. . .

Наверх