Партнерка на США и Канаду по недвижимости, выплаты в крипто
- 30% recurring commission
- Выплаты в USDT
- Вывод каждую неделю
- Комиссия до 5 лет за каждого referral
Тест
проблемы: не могу создать многострочный текст
при компиляции он вообще исчезает из окна
как добавить на форму рисунок?
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,unit2;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='ответ' then
begin
Form1.visible:=false;
unit2.form2.show;
end;
end;
initialization
{$I unit1.lrs}
end.
Form2
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, unit3;
procedure TForm2.Button1Click(Sender: TObject);
begin
if RadioButton3.Checked=true then
begin
Form2.visible:=false;
unit3.form3.show;
end;
end;
Form3
procedure TForm3.Button1Click(Sender: TObject);
begin
if (CheckBox2.Checked=true) and (CheckBox3.Checked=true) then
begin
Memo1.Text:='тест окончен';
end;
end;
если ОБ ЭТОМ можно написать подробнее и понятнее,
то почему МЫ до сих пор не знаем о таких МЕТОДИЧКАХ?
