Текущий архив: 2009.02.01;
Скачать: CL | DM;

Вниз

А как мне вызвать метод?   Найти похожие ветки 

← →
Krasava   (2008-12-21 10:25) [0]

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;

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

---

← →
Григорьев Антон ©   (2008-12-21 10:42) [1]

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

---

← →
Красава   (2008-12-21 10:48) [2]

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

---

← →
Красава   (2008-12-21 13:19) [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 13:24) [4]

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


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

---

← →
Leonid Troyanovsky ©   (2008-12-21 14:46) [5]

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

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

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

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

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

--
Regards, LVT.

---

Страницы: 1 вся ветка

Текущий архив: 2009.02.01;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.014 c