Процедуры в delphi
Автор <<<J.a.Y>>> задал вопрос в разделе Другие языки и технологии
как повторно вызвать процедуру из процедуры в DELPHI ?) и получил лучший ответ
Ответ от Алексей Васильев[гуру]
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; procedure MyProcedure; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MyProcedure; begin ShowMessage(\'HI\'); end; procedure TForm1.btn1Click(Sender: TObject); begin MyProcedure; end; procedure TForm1.btn2Click(Sender: TObject); begin MyProcedure; end; end.
поставь у обоих кнопок одну и ту же функцию обработки клика, либо заверни логику, которая должна срабатывать по клику в отдельный метод и дёргай его из обоих обработчиков
В пропертис кнопки Button2 в событии onClick выбери просто btn1Click
Реализовать в Delphi организацию работы СТЕКА.
Ну как минимум стараться передавать в процедуры и функции не переменные а указатели на них... в
подробнее...
Есть ли в Delphi команда для обнуления всех элементов в массиве?
Доброго времени суток.
Шестьдесят две с половиной тыщи итераций не должны вешать комп.
подробнее...
Многопоточность в DELPHI
многопоточность - один печатает, другой вывод на экран, третий считает сего-нибудь... Если надо
подробнее...
Когда объявляешь showmodal в delphi, что писать во второй форме после бегина?
Пиши то для чего ты вторую форму выводиш на экран. Если вторая форма просто "должна быть" то ничего
подробнее...
Delphi 5, 6, 7
Только что повторил объявление в Delphi 7, ничего он мне не выдал. На какую строку-то он ругается?
подробнее...
Как создать текстовый документ в Делфи 7??
TStringList.Create.SaveToFile(\'Мой первый текстовый документ, созданный в Делфи
подробнее...
Delphi 7 showmessage
ShowMessage() это процедура.
Попробуйте использовать функцию MessageBox() класса
подробнее...
Простейший вопрос по Delphi? Statement expected but 'procedure' found
Вот это:
begin
procedure TForm1.knopkaClick(Sender: TObject);
begin
Как в паскале посчитать сколько в массиве элементов?
Доброго времени суток.
Вы можете узнать только минимальное и максимальное значение индекса с
подробнее...
Delphi как сделать ввод только чисел с точкой ?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in
подробнее...
помогите с созданием калькулятора в delphi...
Можешь просто:
/ процедура обработки события KeyPress
procedure Edit1.KeyPress(var
подробнее...
Что за ошибка в Delphi E2010 incompatible types: \'HDC\' and \'TRect\'?
это не только в делфе. это вообще ошибка. НЕСООТВЕТСТВИЕ ТИПОВ называется.. .
это как
подробнее...
Что в delphi означает фраза Formcreate?
это означает, что будет выполнена процедура по созданию формы
допустим, тебе нужно
подробнее...