Пример. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

unit Unit1;

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ScrollBar1Change(Sender: TObject);

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

procedure TForm1.FormCreate(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.ScrollBar1Change(Sender: TObject);

Компонент TMainMenu

TMainMenu

Стандартный интерфейс прикладной программы предусматривает, как правило, стандартное меню. В Windows есть два типа меню: главное и локальное. Главное реализуется компонентом TMainMenu, а локальное – PopupMenu.

На форму можно поместить сколь угодно объектов типа меню, отображается же в верхней части формы только одно главное меню, имя которого указывается в свойстве меню главной формы.

Компонента TMainMenu относится к не визуальной компоненте. Для создания непосредственно меню в Delphi предусмотрено свойство – дизайнер меню. Чтобы его активизировать, нужно дважды счелкнуть любой клавишей мыши по данной компоненте.

Как правило, главное меню содержит строку пунктов, каждый из которых может содержать вложенные (выпадающие) меню. Вначале дизайнер меню обозначает первый пункт меню. Чтобы ввести название этого пункта, необходимо перейти в инспектор объектов и в свойстве Caption набрать имя этого меню. После нажатия клавиши Enter появляется следующий пункт, работа с которым аналогична.

Для корректировки созданного меню можно щелкнуть мышью на выбранной опции правой кнопкой. При этом откроется окно, в котором предоставляются возможности Insert и Delete. Вставка осуществляется перед выделенной опцией, а удаляется выбранная опция.

1. Если после Caption перед названием ввести символ &, то элемент, стоящий за знаком при выполнении программы будет подчеркнут и для данного компонента можно использовать композицию: (Alt)+(буква).

2. Чтобы отделить группу опций меню, следует очередному пункту меню присвоить имени в свойстве Caption символ (-).

3. Для создания разветвленных меню следует щелкнуть правой кнопкой мыши на данный код опции. При этом появляется локальное меню. В котором необходимо выбрать команду CreatSubmenu. При этом та подопция, которая содержит ссылку на подчиненное меню, имеет значок.

С каждой подопцией меню, содержащей команду, связано событие OnClick.

Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, ExtCtrls, XPMan, StdCtrls, jpeg, Math;

Type

procedure Timer2Timer(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

procedure Image3DblClick(Sender: TObject);

procedure Image4DblClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure Image2DblClick(Sender: TObject);

procedure TrackBar2Change(Sender: TObject);

procedure TrackBar3Change(Sender: TObject);

Private

Public

Var

Form5: TForm5; s,timer:integer;

Implementation

procedure TForm5.Timer2Timer(Sender: TObject);

Begin

procedure TForm5.TrackBar1Change(Sender: TObject);

Begin

procedure TForm5.Image2DblClick(Sender: TObject);

Begin

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage(‘Вы перешли на новый лвл’)

procedure TForm5.Image3DblClick(Sender: TObject);

Begin

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage(‘Вы перешли на новый лвл’)

procedure TForm5.Image4DblClick(Sender: TObject);

Begin

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage(‘Вы перешли на новый лвл’)

procedure TForm5.Button2Click(Sender: TObject);

Begin

statusbar1.Panels[1].Text:=(‘Время закончилось ваш рекорд: ‘+FloatToSTr(s*1.8));

procedure TForm5.Button1Click(Sender: TObject);

Begin

procedure TForm5.Button3Click(Sender: TObject);

Begin

procedure TForm5.Timer1Timer(Sender: TObject);

Begin

Begin

procedure TForm5.TrackBar3Change(Sender: TObject);

Begin

End.

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, ComCtrls, XPMan, StdCtrls,math;

Type

procedure Image2DblClick(Sender: TObject);

procedure Image4DblClick(Sender: TObject);

procedure Image3DblClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure TrackBar3Change(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

procedure TrackBar2Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

Private

Public

Var

Implementation

procedure TForm6.Image2DblClick(Sender: TObject);

Begin

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage(‘Вы перешли на новый лвл’)

procedure TForm6.Image4DblClick(Sender: TObject);

Begin

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage(‘Вы перешли на новый лвл’)

procedure TForm6.Image3DblClick(Sender: TObject);

Begin

Timer1.Interval:=timer1.Interval-(timer1.interval div 15);

ShowMessage(‘Вы перешли на новый лвл’)

procedure TForm6.Timer1Timer(Sender: TObject);

Подключаемые модули в делфи.

Поясните, пожалуйста, для чего нужны следующие подключаемые модули (хотя б некоторые)
Windows
Messages
SysUtils
Variants
Classes
Graphics
Controls
Forms
Dialogs
StdCtrls
ExtCtrls
OleCtrls
SHDocVw

Или дайте ссылку в инете с их назначением и описанием.
PS — в нете искал, ничего нормального не нашёл.

Вообще-то в справочной службе дельфи должны быть хотя бы минимальные описания каждого модуля — советую почитать. Напишу, что знаю.. .
Windows — Это интерфейсный модуль у остовным функциям WinAPI, содержит такще необходимые типы и константы для более удобного использования WinAPI
Messages — Это что-то связанное с обработкой сообщений WinAPI, никогда глубоко не копал.
SysUtils — Системные утилиты. Имеет также большое значение для правильной обработки исключений.
Variants — Для работы с типом Variant
Classes — Содержит всякие полезные классы
Graphics — Содержит классы для работы с графикой и еще что-то — я его плохо знаю.
Controls — Основные компоненты
Forms — Главный модуль любого неконсольного приложения, содержит базовый класс TForm, создает экземпляр класса TApplication — т. е. собственно приложение аки обработчик/диспетчер сообщений.
Dialogs — Классы диалоговых окон
StdCtrls — Стандартный набор компонентов
ExtCtrls — Расширенный набор компонентов
OleCtrls — Для работы с компонентами OLE
SHDocVw — Первый раз вижу.

Вызов процедуры из другого файла

Здравствуйте, товарищи программисты!
Столкнулся с одной проблемой, которая в очередной раз не дает покоя.
Требуется вызвать процедуру из одного файла.pas которая находится в другом.
Дублировать большой код в том же файле как то не хочется, тем более он может часто меняться.
В uses вроде как название файла прописано, но это лишь дает контроль над элементами формы, но не над кодом.

Буду благодарен за помощь

Вызов процедуры из другого модуля
Подскажите, что я сделал не так, хочу вынести подпрограммы в отдельный модуль, но как-то не.

Вызов процедуры из другого модуля
Помогите пожалуйста, нужно вызвать свою процедуру из другого модуля, что надо для этого написать в.

Вызов процедуры из другого модуля
Доброго времени суток! Имеется форма с компонентами Stringgrid, Memo, Checkbox и т.п. Код сильно.

Вызов процедуры-члена объекта из другого модуля
Следующий код вызывает ошибку «Access (ошибка доступа к памяти)»: Модуль.

К сожалению не работает
Пишет ошибку

Есть файл Settings
Начало:

В ней есть процедура Activation;

Есть главная форма

Mawrat, спасиб за помощь, я решил проблему

В файле Settings

и заработало

Вызов из MainForm происходит вот так:

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вызов обработчика нажатия кнопки из другого файла .pas
Доброго времени суток. Есть Unit1.pas Unit1.dfm и Unit2.pas. На форме созданы кнопки.

Вызов процедуры из другого класса
Здравствуйте, есть такая проблема, в классе формы 1 есть процедура вывода данных в ListBox, назовем.

Вызов функции из другого файла
Доброго времени суток. Друзья подскажите, как можно вызвать функцию из другого файла? У меня.

Текст программы. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, Buttons, StdCtrls, Mask, ExtCtrls, Grids, TeEngine,

Series, TeeProcs, Chart, Math;

procedure SpeedButton1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure CheckBox4Click(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure GoOUT2Click(Sender: TObject);

procedure GoOUT1Click(Sender: TObject);

procedure TForm1.SpeedButton1Click(Sender: TObject);

for i:=1 to 100 do

for i:=0 to 100 do

while j j) and (y[i] j) and (a[i]

if CheckBox4.Checked then Panel3.Visible:=true

procedure TForm1.CheckBox3Click(Sender: TObject);

if CheckBox3.Checked then Panel4.Visible:=true

procedure TForm1.SpeedButton4Click(Sender: TObject);

for i:=0 to 100 do

for i:=0 to 100 do

for i:=0 to 100 do

while j j) and (e[i] =w)and (x[i]

procedure TForm1.GoOUT2Click(Sender: TObject);

If CloseQuery then Close;

procedure TForm1.GoOUT1Click(Sender: TObject);

If CloseQuery then Close;

Результаты генерации последовательностей ПСЧ указанными выше методами приведены на экранной форме.

Как видно из первой экранной формы, оценки математического ожидания и дисперсии последовательности квазиравномерных ПСЧ, полученной методом Лемера, близки к математическому ожиданию (равному 0,5) и дисперсии (равной 1/12 или, округленно, 0,0833) равномерного распределения случайных чисел. Для последовательности квазиравномерных ПСЧ, полученной с помощью стандартного датчика Random, данные оценки несколько хуже.

На следующей экранной форме приведены результаты генерации последовательностей ПСЧ с квазинормальным и квазиэкспоненциальным законами распределения, полученных по приведенным выше соотношениям.