Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2010, 09:11   #1
drossell
Пользователь
 
Регистрация: 01.06.2008
Сообщений: 10
По умолчанию Запуск процедуры

Вот собственно вопрос: сущестует форма uVopr1 с кнопкой
bbtOK и форма uUtil с процедурой procedure TfmUtil.Save(Sender: TObject)
Необходимо чтобы кнопка запускала процедуру.
Код:
unit uVopr1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons, Grids,
  DBGrids, DB, ComObj;

type
  TfmVopr1 = class(TForm)
    bbtClose: TBitBtn;
    bbtOK: TBitBtn;
    Label1: TLabel;
    procedure bbtOKClick(Sender: TObject);
    procedure bbtCloseClick(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmVopr1: TfmVopr1;

implementation

uses uDM, uUtil;

{$R *.dfm}


procedure TfmVopr1.bbtOKClick(Sender: TObject);
begin
   fmUtil.Save ;
     
end;
end
После компиляции пишет, что нехватает свойств компонента SAVE?

Будте добры, направте на путь правильный.
drossell вне форума Ответить с цитированием
Старый 22.11.2010, 09:38   #2
lexaltd
Форумчанин
 
Регистрация: 21.07.2008
Сообщений: 192
По умолчанию

Код:
procedure TfmVopr1.bbtOKClick(Sender: TObject);
begin
   fmUtil.Save(Self) ;    
end;
Если я правильно понял - то как то так
lexaltd вне форума Ответить с цитированием
Старый 22.11.2010, 11:28   #3
drossell
Пользователь
 
Регистрация: 01.06.2008
Сообщений: 10
По умолчанию

Большое спасибо, то что надо!
drossell вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск процедуры в конкретное время yulia Общие вопросы Delphi 11 09.12.2021 14:36
Управляющие структуры, процедуры Function и процедуры Sub Natalo4ka Помощь студентам 0 17.05.2010 22:00
Запуск процедуры через указатель. Alex Cones Общие вопросы Delphi 4 16.11.2009 11:39
Запуск процедуры по дате Ant1Player Общие вопросы Delphi 3 22.05.2009 19:52
Запуск процедуры из процедуры с дополнением 1sal1 Общие вопросы Delphi 3 06.10.2008 21:54