[apc700]

Помогите, пожалуйста, я новичек. У меня есть, 2 формы, Form1 и From2 , на первой расположен Timer1. На втором 2-3 radiobutton которые изменяют Timer1.interval. ну точнее настройки таймера. Как мне связать эти две формы, что бы работало? Спасибо!

[t116]

Пропиши в
unit1

Код:

var
  Form1: TForm1;

implementation

uses Unit2;

[lmikle]

Код:

procedure TForm1.Button1Click(Sender : TObject);
begin
  Form2.ShowModal;
  if Form2.RadioButton1.Checked Then Timer1.Interval := 1000;
  if Form2.RadioButton2.Checked Then Timer1.Interval := 10000;
  if Form2.RadioButton3.Checked Then Timer1.Interval := 100000;
end;

Вообще, я предпочитаю у таких форм делать метод execute, который и возвращает нужное значение. В твоем случае что-то типа такого (и заместо отдельных RadioButton использовать RadioGroup:

Код:

function TForm2.Execute(var AInterval) : Boolean;
begin
  Result := ShowModal = mrOK;
  If Result Then
    Begin
      Case RadioGroup1.ItemIndex Of
        0 : AInterval := 1000;
        1 : AInterval := 10000;
        2 : AInterval := 100000;
        Else AInterval := 1000; // на всякий случай
    End;
end;

Тогда код выше будет такой:

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  AInt : Integer;
begin
  if Form2.Execute(AInt) Then Timer1.Interval := AInt;
end;