своя процедура

[san72]

Подскажите пожалуйсто где надо объявить процедуру свою чтобы не надо было каждый раз писать в ней Form1.Label1.Caption и т.д.. и вообще как оформляются свои процедуры в delphi? что это за (Sender: TObject) надо его писать или нет, подскажите

[ArtInt]

Процедуру надо объявить в форме (можно в private, public):

type
  TForm1 = class(TForm)
    Button1: TButton;
    FileListBox1: TFileListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure Svoy;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Svoy;
begin
 //действия для данной процедуры
end;

A Sender указывает какой компонент перехватывает событие, вот для примера код из стандартной справки:

procedure TMainForm.Button1Click(Sender: TObject);
begin
if Sender = Button1 then	
  AboutBox.Caption := 'About ' + Application.Title	
else 
  AboutBox.Caption := '';	
AboutBox.ShowModal;
end;

[san72]

ArtInt спасибо ещё один вопрос - как вызвать таким образом объявлённую процедуру из другой процедуры?

[ArtInt]

Ответ содержится уже в вопросе. То есть просто писать, например:

Svoy;

[san72]

ArtInt у меня такая ситуация - есть функция и из неё вызываются процедуры, так вот функцию тоже надо прописывать там где Pravite,Public ?

[ArtInt]

Да, желательно, иначе придется дописывать при вызове Form1

[san72]

Всё спасибо теперь понятно с этим делом а то вечно писал Form1. везде