Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Обробник подій.
Сторінки 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;
Киньте на форму timage, створіть потрібний обробник, а потім видаліть timage. Після цього напишіть щось типу:
fon.OnClick := Image1Click;Подробиці: Жизнь и смерть в режиме run-time.
Master_Sergius
Тут дійсно немає ніякої випадковості, бо римський шолом - то логотип Делфі: https://www.youtube.com/watch?v=aV6GOHk_b6Y І ви зараз серед делфістів.
Я вже все зрозумів.
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. і записати туди нашу дію.
Питання хоч і не по темі, але все ж,
Чим той ваш Delphi кращий за Lazarus ?))
Питання хоч і не по темі, але все ж,
Чим той ваш Delphi кращий за Lazarus ?))
1) Delphi був першим за Lazarus
2) В Delphi більше компонентів
3) На Delphi можна писати програми для Windows, OS X, IOS, Android;
Але мова програмування та сама.
BarsicPlus
Я б сказав усім по трошки. Мова підтримує більше сучасних фішок, більше компонентів, краще IDE, кращий дебагер. Та й людей на ньому більше пише, тому якусь інформацію легше знайти.
Та воно то може й так, але ж це пропрієтарщина. Та ще й не всі ОС підтримує.
BarsicPlus
Із більш-менш популярних поки що не підтримує тільки Лінукс і Вінду на ARM. Я б не сказав, що це великий недолік. Тут швидше треба дивитися, як ця підтримка реалізована. Бо як каже більшість делфістів, FMX поки що не придатна для створення софту з інтерфейсом навіть середньої складності. Тому тут у них паритет з Лазарусом.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися