для новичков

[Анастасия]

Существует ли литература по работе с лазарусом?!

[Mr.Smart]

Анастасия
Для программирования на Lazarus подойдёт любая книга по Delphi 7.
Специализированной литературы пока нет. Книга возможно скоро появится. Этим занимается человек с нашего форума Kubanych http://freepascal.ru/forum/viewtopic.php?f=23&t=5173&st=0&sk=t&sd=a

[Анастасия]

Пока выйдет книга, я завалю сессию...)

[Mr.Smart]

Анастасия - Всё будет ОК
Если будут какие вопросы и что-то не будет получаться, смело обращайтесь на этот форум. Сообщество FreePascal.ru Вам с удовольствием поможет!

[Анастасия]

Тогда не могли бы помочь Вы мне?
Нужен каскад кнопок(чтоб одна вызывала другую) а четвертая выдавала сообщение "привет"
буду очень благодарна)

[Mr.Smart]

Как я понял. На форме одна кнопка при нажатии она меняет своё название, а при четвёртом выдаёт сообщение?

Добавлено спустя 5 минут 27 секунд:
з.ы.
Я так понимаю, что это у вас лабораторная работа. Выложите формулировку задания...

[Logos]

предистория:

Знать ВСЕ не дано никому и не раз сталкивался с ситуацией, когда на тематических форумах задавая вопрос - получаешь ответ о том, что решение просто, но ты слишком глуп и невнимателен и ленив и еще куча подобного... Но так это не всегда! Иногда не хватает времени, иногда желания, иногда возможностей...

Решение:

...............................

Код: Выделить всё

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    counter:integer;
    buttons:array of tbutton;
    procedure bclick(sender:tobject);


...............................

Код: Выделить всё

procedure TForm1.bclick(sender: tobject);
begin
   if counter = 5 then
   showmessage('Привет.')
   else
      begin
         setlength(buttons,counter);
         buttons[counter-1]:=tbutton.Create(self);
         buttons[counter-1].Parent:=form1;
         buttons[counter-1].OnClick:=bclick;
         buttons[counter-1].Caption:='Кнопка '+inttostr(counter);
         buttons[counter-1].Left:=30;
         buttons[counter-1].Top:=counter*30;
         buttons[counter-1].Show;
         if counter<>1 then buttons[counter-2].OnClick:=nil;
         
         inc(counter);
      end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   counter:=1;
   bclick(sender);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   buttons:=nil;
end;


Послесловие:

1. Решение не самое изящное. (набросал поздно, уставший и выпивший)

2. На тройку, для лабораторной должно хватить.

3.В наброске комментарии не ставил сознательно....

работу с динамическими массивами читать тут:
http://old.softerra.ru/review/program/20000/page1.html

создание компонентов во время работы программы читать тут:
http://www.delphisources.ru/pages/faq/b ... nents.html

4.Если Анастасия заинтересуется, то она сможет выяснить "моменты" реализации и, значит, я потратил время не зря и среди знающих людей станет на одного больше. Если нет - то она просто сдаст работу.

[Mr.Smart]

Logos
Всё конечно хорошо, но поместите свой код в тег [code]. Уважайте форумчан!

[Logos]

Logos
Всё конечно хорошо, но поместите свой код в тег [code]. Уважайте форумчан!

Искренне не хотел проявить неуважение к форумчанам.

Я не являюсь постоянным (каждодневно-читающим) гостем форума и ответил просто "как обычно", никоим образом не имея цели задеть кого либо...

Признаюсь - о теге [code] я просто не знал.

[скалогрыз]

Существует ли литература по работе с лазарусом?!

90% литературы и интернет ресурсов по Delphi, применимы к Лазарусу.

2 logos: надо было кроме кода, готовый проект в архиве к сообщению приаттачить

[Logos]

2 logos: надо было кроме кода, готовый проект в архиве к сообщению приаттачить

Боюсь, что это не помогло-бы, поскольку набросал в блокноте, открыв один из "старых" проектов и за компиляцию проекта без ошибок поручится-бы не смог.

[скалогрыз]

ок.
вот 2 проекта, оба решают поставленную задачу, только один:
статический - 4 кнопки заранее выложены на форму, и одна кнопка показывает другу (visible:=true)

другой - динамический: как раз, то что logos прописал
нужно думать, что именно динамический требуется на лабораторной...

[Анастасия]

Спасибо, конечно, я оценила работу. и статестический, и динамический выдают ошибки:
project1.lpr(19,1) Error: Can't open resource file: project1.res
project1.lpr(19,1) Fatal: There were 1 errors compiling module, stopping
Изначальное задание: Создать каскад кнопок, чтоб одна вызывала другую, а четвертая вызывала сообщение "Привет"

[Mr.Smart]

Анастасия
Это ошибка в самой среде Lazarus. Перед запуском программы сохраните сначала проект.

[Анастасия]

Может я не правильно сохраняю (проект->сохранить проект), но все равно выдает ошибку