[Алексей1980]

Начал изучать delphi 7
не могу проверить кучу инфы, например хотел запустить таймер в таймере, но так и не понял как запустить процедуру в процедуре.

вобщем хочу научится озам, что бы легко мог склеивать примеры с сайта и создать осознанную программу, а не поменять добавить кнопачек

вот хочу я запустить таймер по нажатию кноки, просто пример

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
winexec('net send localhost 123',SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
а теперь как поместить таймер сида?
end;

примеры из библия дельфи в главе 5 какие то кастрированны, там нет целого исходника на переменыне, текст не работает при копировании в проект(это просто убивает, когда код дан но дельфи ругается, как искать решение если еще не изучил дельфи, но без примеров изучить невозможно, а пример не зпускается, замкнутый круг)
хотел создавать собственные процедуры
например
procedure Test
запихнуть туда, что потребуется и вставлять в любую процедуру
просто после процедуры надо писать в скобках кое что, тут я не могу разобраться, по тому что проверить не могу, незнаю как 100% ее правельно загрузить из другой процедуры, Result:=Test или Result:=Test() или Result:=Test(1,1) или просто Test
вобщем колличкство вариантов зашкаливает, накладывается на ошибки, мудреный язык автора книги тоже понять сложновато, от обилия информации голова гудит

[Алексей1980]

procedure WriteIni;
begin
winexec('net send localhost 123',SW_SHOW);
end;

вроде работает проверил
таймер запустить тоже получилось, только Timer1.Enabled := true; я считаю как то сложновато, то есть надо знась что писать после процедуры, что бы все заработало
зато щас понял что таким макором можно даже форму раскрасить ))
вобщем тему можно удалить, просто в книге нет рабочего примера например через кнопку как вызвать процедуру, приводятся процедуры не связынные с обьектом, висячие в воздухе

[Алексей1980]

что я делаю не так

Код:

unit Unit1;

interface

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

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

var
  Form1: TForm1;
 // Edit1: TEdit; если задействовать то все равно не передает ok
implementation

{$R *.dfm}
Procedure Test;
begin
Edit1.Text:='ok';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Test;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Test;

end;

end.

при нажатии на кнопку и по таймеру Edit1.Text не присваивает значение через процедуру Test
если вписать Edit1: TEdit;
если не вписывать, компилятор ругается на Edit1
пробывал менять на TForm1.Test
получилось толко если сделать Test обработчиком обьекта как и TForm1.Button1Click но тогда ругается на процедуру Test
вобщем после Procedure Test; мне приходится пробовать на угад
Edit1 и . в этой процедуре не дает мне меню с быстрым выбором пунктов типа Text и т.д. думаю дельфи не может идентифицировать Edit1
но когда я его идентифицирую он мне уже ничего не говорит, все компилируется но не работает уже при нажатии кнопки и по таймеру

[4kusNick]

Скорее всего, проблема в том, что ты используешь процедуру Test не привязанно к форме, на которой находится Edit1.
Для того, чтобы в своей процедуре использовать элементы интерфейса формы, нужно добавить эту процедуру в public declarations этой формы:

Код:

 
public
    { Public declarations }
    procedure Test;
end;

пример в аттаче.

[Алексей1980]

Сообщение от 4kusNick

Скорее всего, проблема в том, что ты используешь процедуру Test не привязанно к форме, на которой находится Edit1.
Для того, чтобы в своей процедуре использовать элементы интерфейса формы, нужно добавить эту процедуру в public declarations этой формы:

Код:

 
public
    { Public declarations }
    procedure Test;
end;

пример в аттаче.

Спасибо!
я был близко, Procedure Test(Sender: TObject);
там где автодобавление процедур
и точно не помню TForm1 вроде не ставил в переди когда уже создавал процедуру

[4kusNick]

Всегда пожалуйста =)
Будут вопросы - обращайся!

[Aristarh Dark]

Я никого не хочу обидить, но вот это

Сообщение от Алексей1980

Procedure Test(Sender: TObject);

в контексте ветки форума - абсолютная чушь. Сильно советую читать много-много книг по ООП.