IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Как описать Везеде доступную процед
сообщение
Сообщение #1


Lonely_Raven
****

Группа: Пользователи
Сообщений: 640
Пол: Мужской

Репутация: -  1  +


Пытаюсь поместиь ее сюда но чего-то
ошибку выдает может синтаксис неправильный
-------------------
как правильно надо
-------------------
хочу чтоб ета процедура было доступна всезде
даже между формами
---------------------
public
 Procedure HintVisib(Mess:String;Vis:Boolean);


 NamesLine,NamesFider,NamesDatBas:String;


 end;


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


Создаю новый проект, в нем - две формы - Form1 Form2. На каждой форме - по кнопочке. В описании класса TForm1 добавляю процедуру DoSomething, которую попытаюсь вызвать из 2-й формы
Unit1 (В нем описана 1-я форма)
Код

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;
type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 public
   procedure DoSomething(const s: string);
 end;
var
 Form1: TForm1;
implementation uses unit2;
{$R *.DFM}
procedure TForm1.DoSomething(const s: string);
begin
 ShowMessage(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.Show;
end;
end.

Unit2 - вторая форма
Код

unit Unit2;
interface uses  Windows, Messages, SysUtils, Classes, Graphics,
               Controls, Forms, Dialogs, unit1, StdCtrls;
type
 TForm2 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 end;
var
 Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
 Form1.DoSomething('works');
end;
end.

Запускаю... оно скомпилировалось! И даже работает


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Lonely_Raven
****

Группа: Пользователи
Сообщений: 640
Пол: Мужской

Репутация: -  1  +


:D
-=-=-
ПАсибо
-=-=-


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 3:37
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name