Ошибка при работе в run time

@VladSharikov · Регистрация: 02.12.2010

Author24 — интернет-сервис помощи студентам

Привет. Работаю с паскалем совсем немного, с лазарусом и того меньше.
Нужно создать форму в design time форме, затем по ней и по ини файлу создать run time форму.
что то не получается.
вот обработчик:
(почти все по методичке переписал, мало что менял)

Delphi

   constructor TEventClass.Create(SimpLabel: TObject);
   var
     Ini: Tinifile;
   begin
     if SimpLabel is TLabel then
     begin
       SimpleObject := SimpLabel as TLabel;
       Event := LabelEvent;
       (SimpleObject as TLabel).OnClick := Event;
       //...............................дальше обработка ини файла
     end;
   end;

Выдает ошибку на 8 строке:
Err: Wrong number of parameters specified to call 'LabelEvent'. Короче нужно какие-то параметры передать при обращении к процедуре LabelEvent. Что именно? ( в методичке этого нету )

Добавлено через 6 минут
объявление:

Delphi

1	procedure LabelEvent(Sender:TObject);

и описание:

Delphi

procedure TEventClass.LabelEvent(Sender: TObject);
   var
     flag: boolean;
   begin
     flag := true;
     if flag = true then
        (SimpleObject as TLabel).Font.Size := (SimpleObject as TLabel).Font.Size*2
     else
        (SimpleObject as TLabel).Font.Size := (SimpleObject as TLabel).Font.Size mod 2;
   end;

функции LabelEvent

@volvo · 17.10.2012, 17:52

Что вообще у тебя такое Event? Где он описан?

Добавлено через 2 минуты
Возможно, имелось в виду

Pascal

1	Event := @LabelEvent;

?

@VladSharikov · 17.10.2012, 18:14 **[ТС]**

По поводу Event то же, как это понимать

Говорю - списывал с методички, в общем понимаю что твориться, что каждый отдельный элемент делает не понимаю.

Delphi

1	property Event: TEvent read FEvent write FEvent

FEvent объявлен так:

Delphi

1	FEvent:TEvent

Добавлено через 17 минут
Попробовал с @. Программа запустилась, теперь в другом вопрос.
Как и где правильно считать данные из ini файла? Я пробую в обработчике события OnCreate для формы RunTime

Delphi

procedure TRunTimeForm.FormCreate(Sender: TObject);
var
  EventObject: TEventClass;
  Ini: Tinifile;
begin
  Ini:= TiniFile.Create(extractfilepath(Application.ExeName)+'settings.ini');
 
  EventObject:=TEventClass.Create(Label1);
  Ini.ReadString('Label1', 'Name', Label1.Font.Name);
  Ini.ReadInteger('Label1', 'Size', Label1.Font.Size);
  Ini.ReadBool('Label1', 'Bold', Label1.Font.Bold);
  Ini.ReadBool('Label1', 'Italic', Label1.Font.Italic);
  Ini.ReadBool('Label1', 'Underlined', Label1.Font.Underline);
  Label1.Show;
  EventObject.Free;
 
  EventObject:=TEventClass.Create(Label2);
  Ini.ReadString('Label2', 'Name', Label2.Font.Name);
  Ini.ReadInteger('Label2', 'Size', Label2.Font.Size);
  Ini.ReadBool('Label2', 'Bold', Label2.Font.Bold);
  Ini.ReadBool('Label2', 'Italic', Label2.Font.Italic);
  Ini.ReadBool('Label2', 'Underlined', Label2.Font.Underline);
  Label2.Show;
  EventObject.Free;
 
  EventObject:=TEventClass.Create(Label3);
  Ini.ReadString('Label3', 'Name', Label3.Font.Name);
  Ini.ReadInteger('Label3', 'Size', Label3.Font.Size);
  Ini.ReadBool('Label3', 'Bold', Label3.Font.Bold);
  Ini.ReadBool('Label3', 'Italic', Label3.Font.Italic);
  Ini.ReadBool('Label3', 'Underlined', Label3.Font.Underline);
  Label3.Show;
  EventObject.Free;
 
  EventObject := nil;
 
end;

Скажите, что тут не так делаю?

Добавлено через 3 минуты
Ошибки в общем то нету.
Просто не выводятся надписи в режим ран тайм, хотя должны ведь, почему нет?

Единственный момент - при нажатии на label вылетает ошибка ((какое то исключение), но это , опять же, другой вопрос

	17.10.2012, 18:14