| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

А как мне вызвать метод?

Krasava ©   (2008-12-21 10:25:00) 

unit Unit1;

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

procedure CrObj;

procedure CrObj;
var
 i : integer;
begin
 for i :=1 to StrToInt(10) do
 begin
 with TImage.Create(Form1) do
   begin
     if Names  <> '' then Name :=Names;
     if Tops   <> '' then Top  :=100;
     if Lefts  <> '' then Left :=100;
     if UnikalCode <>'' then Tag :=1;

     Width  :=50;
     Height :=50;
     if (State <> '') and (State <> '1') then
       Picture.LoadFromFile(ImagDir+'\1.bmp')
     else
       Picture.LoadFromFile(ImagDir+'\2.bmp');
     Parent :=Form1;
     OnClick :=Clicki; // ->>вот тут ошибка...незнает Clicki
   end;
end;

Уважаемые мастера. Как мне можно выкрутиться? Плохо ООП знаю

---

Leonid Troyanovsky   (2008-12-21 14:46:00) [1]

> Красава   (21.12.08 13:19) [3]

>  Timer.OnTimer :=Form1.TestCCO; -->тут ошибка - незнаю чО
> такое

Дык, нет у TForm1 такого метода.

Во-ще, в диалоге показа ошибки можно нажать Ctrl-C.
Или в окне сообщений компилятора, встав на нужную строку.

Ну, а потом переправить сюда путем Ctrl-V.

--
Regards, LVT.

---

Игорь Шевченко   (2008-12-21 13:24:00) [2]

> тут ошибка - незнаю чО такое


новое сообщение компилятора

---

Красава   (2008-12-21 13:19:00) [3]

А нееее, не так.
Значит есть у меня два модуля: main и unit1
Такс! Вообщем код...
unit main;

interface

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

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 public
     procedure Test(Sender : TObject);
 end;

var
 Form1: TForm1;  
 Timer : TTimer;
implementation

{$R *.dfm}
uses unit1;

procedure Test (Sender : TObject);
begin
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
end;

unit Unit1;

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

procedure Obj;

implementation

procedure Obj;
begin
 Timer :=TTimer.Create(Form1);
 Timer.Enabled :=true;
 Timer.Interval :=10000;
 Timer.Name :='Timer1';
 Timer.Tag :=0;
 Timer.OnTimer :=Form1.TestCCO; -->тут ошибка - незнаю чО такое
end;

---

Красава   (2008-12-21 10:48:00) [4]

Спасибо вам Антон!

---

Григорьев Антон   (2008-12-21 10:42:00) [5]

Clicki - это метод TFrom1? Тогда пишите OnClick:=Form1.Clicki. Но вообще, такие действия лучше не вызносить в отдельную процедуру, а делать в методе TForm1.

---

Наверх