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

[Dura4ok]

Есть процедура таймер, которая раз в 1сек/n (пусть раз в секунду, не принципиально) двигает Шейп1 на 20 точек вправо.
И есть процедура Кнопка1 (просто лень менять раскладку).
Собственно ВОПРОС: как включать процедуру таймера по нажатию кнопки?
И более обще, КАК в одной процедуре вызывать другую?
Помогите, товарищи!!!

[Stanislav]

Сообщение от Dura4ok

Есть процедура таймер, которая раз в 1сек/n (пусть раз в секунду, не принципиально) двигает Шейп1 на 20 точек вправо.
И есть процедура Кнопка1 (просто лень менять раскладку).
Собственно ВОПРОС: как включать процедуру таймера по нажатию кнопки?
И более обще, КАК в одной процедуре вызывать другую?
Помогите, товарищи!!!

По нажатию кнопки
timer1.enable:=true; // Включить
timer1.enable:=false; // Выключить

А вот насчет процедуры просто береш и вызываешь тупой бональный пример:

procedure shar2;
var
b:integer;
begin
b:=b+1;
end;


procedure shar;
var
i:integer;
begin
i:=i+1;
shar2; // Вот сдесь мы вызвали другую процедуру из второй т.е соответствует твоему вопросу

end;

Может я конечно что-то не допонял всем свойственно ошибаться.

[Dura4ok]

А если в VCL application?
пишет not enough actual parameters

[Никки]

а покажи код

[mihali4]

Пример (если я правильно понял):

unit TmpUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, MPlayer, ShellApi;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Go_and_Go;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Go_and_Go;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
end;

procedure TForm1.Go_and_Go;
begin
//   тут что-то делаем...
end;

end.

[Sergey2]

Сообщение от Dura4ok

А если в VCL application?
пишет not enough actual parameters

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

Timer1Timer(Sender);

end;

[Stilet]

Timer1Timer(Sender);

Это не включение таймера, а вызов его обработчика.
Читай ВНИМАТЕЛЬНО посты №2 и №5!

[Sergey2]

Сообщение от Stilet

Это не включение таймера, а вызов его обработчика.

Ну да. Я вопрос автора именно так и понял. И показал заодно как вызывать другие процедуры из процедуры.

Читай ВНИМАТЕЛЬНО посты №2 и №5!

А че их читать? Их не автор писал