Форум: "Начинающим";
Текущий архив: 2009.02.01;
Скачать: [xml.tar.bz2];
ВнизА как мне вызвать метод? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c