Помогите разобраться с проблемой

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Ответить
Kir955
незнакомец
Сообщения: 8
Зарегистрирован: 01.03.2024 15:58:48

Помогите разобраться с проблемой

Сообщение Kir955 »

Я осваиваю Lazarus и не знаком с паскалем. При компиляции Лазарус ругается на 18 строчку: "Label1: TLabel;". Говорит что что-то не так с TLabel.
Вот код:
unit Unit8;

{$mode ObjFPC}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

{ TForm8 }

TForm8 = class(TForm)
Image1: TImage;
Image2: TImage;
Image3: TImage;
Label1: TLabel;
Panel1: TPanel;
Panel2: TPanel;
procedure Image3Click(Sender: TObject);
private

public

end;

var
Form8: TForm8;

implementation

{$R *.lfm}

{ TForm8 }

procedure TForm8.Image3Click(Sender: TObject);
begin
close;
end;

end.
Alex2013
долгожитель
Сообщения: 3211
Зарегистрирован: 03.04.2013 11:59:44

Сообщение Alex2013 »

По коду замечаний быть не должно . Так что просто удалите Label1 с формы в IDE и создайте (не копируя через копи-паст) его снова . По идее это поможет в 99 случаев из 100. :idea:
iskander
энтузиаст
Сообщения: 627
Зарегистрирован: 08.01.2012 18:43:34

Сообщение iskander »

Kir955 писал(а):Говорит что что-то не так с TLabel.
В выражении uses не хватает модуля StdCtrls.
Kir955
незнакомец
Сообщения: 8
Зарегистрирован: 01.03.2024 15:58:48

Сообщение Kir955 »

iskander писал(а):
Kir955 писал(а):Говорит что что-то не так с TLabel.
В выражении uses не хватает модуля StdCtrls.
Спасибо, действительно в этом была проблема :D
Ответить