На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
procedure TForm1.Button1Click(Sender: TObject); begin //начало if edit1.Text <> '' then form2.show //Если поле не пустое, вызываем форму 2 else // в противном случаи showmessage('введите свое имя'); // выводим сообщение end; // Конец
Часто вижу в группе один и тот же вопрос... Как запретить ввод символов в Edit? в этом маленьком уроке, мы научимся ставить запрет на ввод некоторых символов, букв, и цифр.
И так, Бросим на Форму Edit, выберем свойство OnKeyPress (см. рисунок) создадим событие и пропишем следующий код:
Код
if Key in ['A'..'Z']+['a'..'z']+['`']+['~']+['@']+['/']+[',']+['.']+['Ё']+['ё'] then Key:=#0;
//открываем документ procedure TMainForm.FileOpen(Sender: TObject); begin if OpenDialog.Execute then Memo1.Lines.LoadFromFile(OpenDialog.FileName); S:=OpenDialog.FileName; //переменная S имеет формат String. end;
Мы будем создавать программу, которая считает сколько слов, строк и символов вы ввели в memo. (см. рисунок)
И так, бросаем на форму компоненты Memo и StatusBar. Сначала создаем три панелей в строке состояния (StatusBar): 0 - Символов: 0 1 - Слов: 0 2 - Строк: 0
Далее прописываем следующие коды:
Цитата
procedure TForm1.Memo1Change(Sender: TObject); Begin n := 0; for i := 0 to Length (Memo1.Text) do begin if (Memo1.text[i]<>' ') and ((Memo1.text[i+1]=' ') or (Memo1.text[i+1]=#1
... Читать дальше »
В этом маленьком уроке я покажу вам как осуществить поиск текста в компоненте MEMO. Давайте откроем Delphi и создадим новый проект, кидаем на форму компонент Edit, Memo, Button все они с закладки Standart. Отлично, идем дальше, в обработчике OnClick кнопки прописываем следующий код:
Код
procedure TForm1.Button1Click(Sender: TObject); var // Объявляем переменные Find:string; // Искомая строка i:integer; // Счетчик для цикла begin find:=Edit1.Text; // Записываем в find текст из Edit For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки If Pos(FIND, Memo1.Lines.Text)<>0 Then Begin Memo1.SetFocus(); Memo1.SelStart:=Pos(FIND,Memo1.Li
... Читать дальше »
Для написания приложения на Delphi "Бегущая строка" нам необходимо разместить на форме следующие компоненты: Image1 со вкладки Additional Label со вкладки Standard Timer со вкладки System RadioButton (2 шт)
Меняем у приложения на Delphi "Бегущая строка ": у RadioButton1 свойство Caption на "Влево"; у RadioButton2 свойство Caption на "Вправо"; у Label1 свойство Caption на "Первое приложение на Delphi"; У компонента Image1 свойство Picture - загружаем любой рисунок; Заходим в обработчик событий onTimer таймера и пишем там следующий код между Procedure и Begin:
Программируем на Delphi. Текстовой редактор за 20 минут
Чтобы написать текстовый редактор, нужно сначала ознакомиться с компонентами, которые будут использоваться в процессе работы. Вот они: Memo, Button, Label, MainMenu, Open Dialog, Save Dialog, Font Dialog, Color Dialog, Print Dialog, Find Dialog. Давайте разберем все компоненты по порядку.
Запустим Delphi. При запуске автоматически создается новый проект, но если он не был создан, нажмите на File/New/Appliation. Проект Delphi содержит следующие файлы: *.dpr - файл проекта, *.pas - файл модуля, в котором содержится программный код, *.dfm - файл, в котором содержится форма, *.dcu - откомпилированный файл модуля, *.res - ресурсный файл, содержащий все иконки, курсоры и прочие ресурсы программы. Следующим нашим шагом будет сохранение проекта в нашу, уже созданную папку MyTextEditor командой File/Save all. Теперь на па
... Читать дальше »
|