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

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

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

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

Сообщение Kir955 » 01.03.2024 17:06:30

Я осваиваю 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.
Kir955
незнакомец
 
Сообщения: 8
Зарегистрирован: 01.03.2024 16:58:48

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

Сообщение Alex2013 » 01.03.2024 20:21:27

По коду замечаний быть не должно . Так что просто удалите Label1 с формы в IDE и создайте (не копируя через копи-паст) его снова . По идее это поможет в 99 случаев из 100. :idea:
Alex2013
долгожитель
 
Сообщения: 2957
Зарегистрирован: 03.04.2013 11:59:44

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

Сообщение iskander » 01.03.2024 20:51:07

Kir955 писал(а):Говорит что что-то не так с TLabel.

В выражении uses не хватает модуля StdCtrls.
iskander
энтузиаст
 
Сообщения: 590
Зарегистрирован: 08.01.2012 18:43:34

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

Сообщение Kir955 » 02.03.2024 20:20:44

iskander писал(а):
Kir955 писал(а):Говорит что что-то не так с TLabel.

В выражении uses не хватает модуля StdCtrls.

Спасибо, действительно в этом была проблема :D
Kir955
незнакомец
 
Сообщения: 8
Зарегистрирован: 01.03.2024 16:58:48


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex [Bot] и гости: 97

Рейтинг@Mail.ru