|
|
|
| Другие темы раздела | |
|
Delphi Работа с символами текста
https://www.cyberforum.ru/ delphi-beginners/ thread1205647.html Нужно каждый символ из текста менять с другим ,который находится на интервале 2. вот что написал, не работает. Подскажите как можно сделать. procedure TForm1.Button1Click(Sender: TObject); var text,z:string; x,i: Integer; begin text:=Edit1.text ; x:=0; for i:=0 to length(text)-2 do begin |
Переделать в процедуру Delphi Имеется код (Спасибо Puporev), как его переделать в отдельную процедуру и как вызывать её? Проблема в том, что не знаю как правильно записать, чтоб процедура вызывалась например так: Searche (Stringgrid1, 1) //1-столбец, в котором нужно искать значения procedure TForm1.BitBtn10Click(Sender: TObject); var i:integer; begin StringGrid1.TopRow:=0; for i:=1 to StringGrid1.RowCount do if... |
|
Delphi Выравнивание памяти под 16
https://www.cyberforum.ru/ delphi-beginners/ thread1205623.html Hello, всем привет! Хочу выровнять массив НОРМАЛЬНО, чтобы вместо movups юзать movaps, что в будущем даст ещё пару миллисекунд производительности. Вот процедура: type Data = array of Single; PData = ^Data; var |
Delphi Как открыть файл HTML? как открыть файл HTML, если он находится в папке с програмой? Как это сделать чтобы не указывать путь к нему? Вот так он открывается: procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('C:\Users\Ramires\Desktop\Íîâàÿ ïàïêà (5)\index.html', Flags, TargetFrameName, PostData, Headers); end; А чтобы не указывать путь как сделать? Помогите кодом плиз! https://www.cyberforum.ru/ delphi-beginners/ thread1205598.html |
|
Delphi Image на форме Приветствую уважаемые форумчане. Можно ли сделать так, чтобы компонент image отображал картинку именно с округленными углами, а все что дальше этих углов, не выделялось серым цветом, а было в цвет темы SkinManager? То есть чтобы сам компонент image был с округленными углами что ли... Подскажите! Буду признателен. |
Delphi Графический режим в Delphi
https://www.cyberforum.ru/ delphi-beginners/ thread1205483.html Добрый день, уважаемые форумчане! Хотел бы перейти на графический режим в делфи, типа создание тиблиц с кнопками и т.д. А то таблицу с кнопками создал, а как их использовать не знаю(в смысле тыкаются в пустую), надо, чтобы выполняли работу какую-нибудь, задачки, для начала. Где можно по этому поводу найти информацию? Заранее спасибо за ответ! |
| Delphi отличие в формате Здравствуйте всем. Подскажите в чем отличие формата Project1.~dpr от Project1.dpr сам знак меня интересует вот этот ~ он присутствует и в других файлах Unit1.~ddp Unit1.~dfm Unit1.~pas и тд https://www.cyberforum.ru/ delphi-beginners/ thread1205474.html |
Delphi Кириллица в Base64 Доброго времени суток. Подскажите, каким образом заставить компонент Delphi XE3 Base64 кодить/декодить кириллические символы. Попросту - русский язык. Пробовал так: procedure TForm1.FormCreate(Sender: TObject); begin With Richedit2 do begin SelAttributes.Name:= 'Windows-1251'; SelAttributes.Charset:= RUSSIAN_CHARSET; end; end; Не работает. |
|
Delphi Поиск и закрашивание строк матрицы, все элементы которых различны
https://www.cyberforum.ru/ delphi-beginners/ thread1205395.html Условие задачи: Дана целочисленная матрица размера M на N. Найти и закрасить ее строки, все элементы которых различны. Мой код: var Form1: TForm1; m,n,i,j,p,k:byte; f:boolean; A: array of integer; procedure TForm1.FormCreate(Sender: TObject); begin |
Delphi Несовместимые типы переменных Написал код, который меняет первую и последнюю цифры в числе. Но ругается на несовместимые типы. Я понимаю, что переменной n типа longint нельзя присвоить значение Edit1.Text, но если тип переменной n поменять на строковый (string), то нельзя будет выполнять арифитические операции (while n div (d*10)>0 do). Подскажите, как быть? procedure TForm1.Button1Click(Sender: TObject); var d,n:... https://www.cyberforum.ru/ delphi-beginners/ thread1205386.html |
|
Delphi Дано натуральное число n. Переставить местами первую и последнюю цифры числа n Дано натуральное число n. Переставить местами первую и последнюю цифры числа n |
Delphi Вывод текста в edit Добрый день! Подскажите, пожалуйста, в чем я не прав. У меня есть edit1. При вводе в него "Test" или "One" должен копироваться текст из Edit1 в edit2. Если введено что-то другое, то не должно копироваться! if (Form1.Edit1.Text <> 'Test') or (Form1.Edit1.Text <> 'One') then begin Form1.edit2.Text := Form1.edit1.Text; end Если введено что-то другое, то не должно... https://www.cyberforum.ru/ delphi-beginners/ thread1205332.html |
|
Фрилансер
73 / 73 / 51
Регистрация: 25.10.2011
Сообщений: 317
|
|
| 11.06.2014, 21:15 | 0 |
События формы для MDI - Delphi - Ответ 630620311.06.2014, 21:15. Показов 558. Ответов 1
Метки (Все метки)
Ответ
ezhik29, вы хотя бы код или проект выложите, тут экстрасенсов нет..
Вернуться к обсуждению: События формы для MDI Delphi
0
|
|
| 11.06.2014, 21:15 | |
|
Готовые ответы и решения:
1
Написать процедуру обработки события OnCreate для формы, которая устанавливает для формы размер шрифта События для формы при создании нового компонента MDI-формы MDI формы |
| 11.06.2014, 21:15 | |
| 11.06.2014, 21:15 | |
|
Помогаю со студенческими работами здесь
0
MDI формы и главная форма Форма внутри формы. Без MDI Передача значений с обычной формы в MDI |
Наверх