1

Тема: Обробник подій.

Як мені написати обробник подій для цього компонента ↓↓↓

procedure TForm1.fonproc;
begin
fon:=timage.Create(nil);
fonlist.Add(fon);
fon.parent:=form1;
fon.position.y:=0;
fon.position.x:=form1.ClientWidth;
fon.Width:=form1.clientWidth;
fon.Height:=form1.ClientHeight;
fon.Bitmap:=image1.Bitmap;
image2.parent:=fon;
fon.wrapmode:=timagewrapmode.stretch;
end;
##########
##PYTHON##
#########

2

Re: Обробник подій.

Киньте на форму timage, створіть потрібний обробник, а потім видаліть timage. Після цього напишіть щось типу:

fon.OnClick := Image1Click;

Подробиці: Жизнь и смерть в режиме run-time.

Подякували: shabaranskij1

3

Re: Обробник подій.

Один римський шолом відповідає іншому. "Совпадєніє? Не думаю."

Мій блог про ОС сімейства *nix - http://nixtravelling.blogspot.com/
Подякували: Arete, quez2

4

Re: Обробник подій.

Master_Sergius
Тут дійсно немає ніякої випадковості, бо римський шолом - то логотип Делфі: https://www.youtube.com/watch?v=aV6GOHk_b6Y І ви зараз серед делфістів.

5 Востаннє редагувалося shabaranskij (10.08.2015 17:39:58)

Re: Обробник подій.

Я вже все зрозумів.

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
 procedure click(sender:TObject);
  end;

var
  Form1: TForm1;
panel:TPanel;
implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
panel:=tpanel.Create(form1);
panel.Parent:=form1;
panel.align:=talignlayout.alClient;
panel.OnClick:=click; //click це наша процедура події  
end;

procedure TForm1.click(sender: TObject);
begin
form1.Close;
end;
end.

Потрібно створити процедуру "procedure click(sender:TObject);"
натиснути клавіші ctrl+c. і записати туди нашу дію.

##########
##PYTHON##
#########

6

Re: Обробник подій.

Питання хоч і не по темі, але все ж,
Чим той ваш Delphi кращий за Lazarus ?))

«Ті, хто опинилися на вершині, не з неба туди впали»

7 Востаннє редагувалося shabaranskij (10.08.2015 17:52:08)

Re: Обробник подій.

BarsicPlus написав:

Питання хоч і не по темі, але все ж,
Чим той ваш Delphi кращий за Lazarus ?))

1) Delphi був першим за Lazarus
2) В Delphi більше компонентів
3) На Delphi можна писати програми для Windows, OS X, IOS, Android;
Але мова програмування та сама.

##########
##PYTHON##
#########

8

Re: Обробник подій.

BarsicPlus
Я б сказав усім по трошки. Мова підтримує більше сучасних фішок, більше компонентів, краще IDE, кращий дебагер. Та й людей на ньому більше пише, тому якусь інформацію легше знайти.

9

Re: Обробник подій.

Та воно то може й так, але ж це пропрієтарщина. Та ще й не всі ОС підтримує.

«Ті, хто опинилися на вершині, не з неба туди впали»

10

Re: Обробник подій.

BarsicPlus
Із більш-менш популярних поки що не підтримує тільки Лінукс і Вінду на ARM. Я б не сказав, що це великий недолік. Тут швидше треба дивитися, як ця підтримка реалізована. Бо як каже більшість делфістів, FMX поки що не придатна для створення софту з інтерфейсом навіть середньої складності. Тому тут у них паритет з Лазарусом.