1

Тема: Lazarus FormClose

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
   procedure FormClose(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  MassegeDlg('Закрити програму', mtWarning, [mbOk], 0);
end;

end.
    

ААААА в інтернеті шукав, нічого незнайшов окрім форума з 2006 року і то там теж нічого
що не так?
чому не працює?
куди два рази клацнути щоб зявилась ця подія FormClose???

2 Востаннє редагувалося mamkin haker (25.10.2021 20:12:33)

Re: Lazarus FormClose

знайшов, відповідь скину пізніше
вибираєте он клосе і жмете на 3 крапки
https://replace.org.ua/uploads/images/11470/7b33ca3f436ad9973fb10763baec979f.png
мдаа, оце я тупий
дивитись ви напевно і думаєте
що він тут забув :D

3

Re: Lazarus FormClose

Ви перший, хто відповів у цій темі. Решта, виходить, ще тупіші, якщо вважати це ознакою тупості (а це не ознака тупості).
Ще пара зауважень:
- MessageDlg все ж таки, а не MassegeDlg (і не MassageDlg);
- Аргумент CloseAction дозволяє замінювати закриття на мінімізацію вікна чи взагалі ігнорування спроби закриття;
- Заведіть собі хорошу звичку одразу перейменовувати елементи інтерфейсу. Стандартні імена типу Form1 чи Label2 не несуть жодної корисної інформації, а заплутатися з ними дуже легко. Скажімо, FormMain і LabelNumber - краще.

Подякували: mamkin haker, leofun012

4 Востаннє редагувалося mamkin haker (25.10.2021 21:10:18)

Re: Lazarus FormClose

koala написав:

Ви перший, хто відповів у цій темі. Решта, виходить, ще тупіші, якщо вважати це ознакою тупості (а це не ознака тупості).
Ще пара зауважень:
- MessageDlg все ж таки, а не MassegeDlg (і не MassageDlg);
- Аргумент CloseAction дозволяє замінювати закриття на мінімізацію вікна чи взагалі ігнорування спроби закриття;
- Заведіть собі хорошу звичку одразу перейменовувати елементи інтерфейсу. Стандартні імена типу Form1 чи Label2 не несуть жодної корисної інформації, а заплутатися з ними дуже легко. Скажімо, FormMain і LabelNumber - краще.

1) проблема була ось тут
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
тому далі я не сильно дивився, в основному проекті все було добре

2) цікаво... але то брату задали в шкілі))

3) то не мені, то брату, а йому можна тяп ляп зробити, головне щоб працювало))
тим більше їх так і вчать що форм1 і лабел1 тому все добре)))

в майбутньому якщо зустріну ще лазарус буду використовувати ваші повчання :3

5

Re: Lazarus FormClose

російська

DiamFC - программа для построения блок-схем по исходному коду программ Pascal/Delphi.
найкращий сайт для розробки блок схем

6

Re: Lazarus FormClose

squbamen
Ще раз порушите правила - забаню назавжди.