Show Message on Button Click

[Rooster]

Hi everyone,

 

I'm slowly getting the hang of scripting so Please keep your as simplified as possible.

 

After making some besic scripts I want to combine them under 1 single program...

So I'm trying to make a form with basic buttons to assign my scripts to, but I can't even make a button click to show a message.

 

I succeeded in getting a message box with a basic script using the ShowMessage function, but as soon as i try it in a form, it won't work.

 

Here's the code:

 

type
 TForm1 = record
   Form1: TForm;
   Button1: TButton;
 end;

var
 Form1: TForm1;

procedure TestButton;
 begin
   ShowMessage('ok') 
 end;                           

procedure Button1Click(sender: TObject);
 begin
   case sender of 
     Form1.Button1: TestButton;
   end;
 end;  

procedure Form1_Init;
begin
 with Form1 do
 begin
   Form1 := CreateForm;
   Button1 := TButton.Create(Form1);
   with Form1 do
   begin
     Left := 228;
     Top := 129;
     Caption := 'Form1';
     ClientHeight := 202;
     ClientWidth := 304;
     Color := clWindow;
     Font.Charset := DEFAULT_CHARSET;
     Font.Color := clWindowText;
     Font.Height := -11;
     Font.Name := 'Tahoma';
     Font.Style := [];
     OldCreateOrder := False;
     PixelsPerInch := 96;
   end;
   with Button1 do
   begin
     Parent := Form1;
     Left := 4;
     Top := 4;
     Width := 296;
     Height := 40;
     Caption := 'Button1';
     TabOrder := 0;
   end;
 end;
end;

procedure Form1_SafeInit;
var
 v: TVariantArray;
begin
 SetLength(v, 0);
 ThreadSafeCall('Form1_Init', v);
end;

function Form1_ShowModal: Boolean;
begin
 Result := Form1.Form1.ShowModal = mrOk;
end;

function Form1_SafeShowModal: Boolean;
var
 v: TVariantArray;
begin
 SetLength(v, 0);
 Result := ThreadSafeCall('Form1_ShowModal', v);
end;

begin
 Form1_SafeInit;
 Form1_SafeShowModal;
 FreeForm(Form1.Form1);
end.;

 

 

So if anyone sees what I'm doing and wants to tell me,

Thanks in advance

[LordJashin]

You forgot to set your event handler!

 

Put this in your with Button1 do block

OnClick := @Button1Click;

 

Scar Divi has a nice form editor under Tools if you want one.

[Rooster]

Wow superb! Thanks a lot!

[AnthonyPhics]

オンライン カジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブル ゲームを楽しむ機会を提供する仮想プラットフォームです。 オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。 プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。 必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。 これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。 ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。 技術革新のおかげで、オンライン ゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンライン カジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。 これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。 このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。 ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。 カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供します casimaru.com

全体として、オンライン カジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。 幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。 ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。

[AnthonyPhics]

オンライン カジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブル ゲームを楽しむ機会を提供する仮想プラットフォームです。 オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。 プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。 必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。 これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。 ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。 技術革新のおかげで、オンライン ゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンライン カジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。 これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。 このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。 ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。 カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供します オンラインカジノ

全体として、オンライン カジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。 幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。 ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。

[JanisItach]

Похудение это тема, которая всегда актуальна для большинства дам. Почти многие из нас стремятся к идеальной форме, но часто сталкиваются с трудностями и препятствиями на пути к этой цели. Но, с правильным подходом, похудение может быть достижимо без нервного напряжения и изнурительных диет. В данной статье мы рассмотрим 10 действенных стратегий похудения, помогающие женщинам добиться желанных результатов и сохранить здоровье.

1. Установите цель

Первым шагом к успешному похудению является установление определенной цели. Обусловьте, сколько килограммов вы хотите сбросить и по какой причине. Цель обязана быть реалистичной, измеримой и достижимой.

2. Питание

Здоровое питание играет главную роль в ходе похудения. Сосредотачивайтесь на употреблении естественных продуктов, богатых витаминами и минералами. Опасайтесь прытких углеводов и жирной пищи. Устремляйтесь к балансу макро- и микроэлементов в рационе.

3. Физическая активность

Регулярные физические упражнения не только посодействуют сжигать калории, а также укрепят мускулы, улучшат общее самочувствие и увеличат выносливость. Найдите вид активности, который вам нравится: от йоги до плавания, от бега до танцев.

4. Гидрация

Пить достаточное количество воды во время денька не только лишь поможет вам поддерживать уровень жидкости в организме, а также ускорит метаболизм, понизит аппетит и поможет сбросить лишний вес.

5. Сон

Качественный сон играет важную роль в процессе похудения. Пытайтесь спать более 7-8 часов в сутки, чтоб ваш организм мог восстановиться, а метаболизм был в норме.

6. Управление стрессом

Стресс может стать препятствием на пути к похудению похудение для женщин Найдите методы расслабления и отдыха: медитация, йога, чтение книжек, прогулки на свежем воздухе.

7. Каждодневный контроль

Ведение дневника пищевых привычек и физической активности поможет вам осознать, что вы едите и какой-никакое количество калорий потребляете, а также оценить свои успехи.

8. Постепенные конфигурации

Избегайте радикальных диет и стрессовых ситуаций. Внедряйте изменения в питании и образе жизни чуть-чуть, чтобы они стали стабильными привычками.

[EdithDag]

Amazing a lot of very good material.
go to this web-site http://o-keeper.ru/bitrix/rk.php?goto=https://uscasinoguides.com/
learn more here official website
useful source http://kimberly-club.ru/bitrix/redirect.php?event1=&event2=&event3=&goto=https://uscasinoguides.com/
learn here https://ufashintorg.ru/bitrix/redirect.php?goto=https://uscasinoguides.com/
find out more https://www.ortaggiitalia.com/modificare-iscrizione-azienda?nid=143&element=https://uscasinoguides.com/
see this here https://www.fonds.ws/firmeneintrag-loeschen?nid=20652&element=https://uscasinoguides.com/
navigate to this site http://may2009.archive.ensembl.org/Help/Permalink?url=https://uscasinoguides.com/

[EdithDag]

Thanks! I value it!
you could check here sneak a peek at these guys
have a peek at this web-site https://klodek.ru/bitrix/redirect.php?goto=https://uscasinoguides.com/
see here http://www.marcastore.ru/bitrix/redirect.php?goto=https://uscasinoguides.com/
my review here https://dostupnajamebel.ru/bitrix/redirect.php?goto=https://uscasinoguides.com/
you can look here official site
useful site https://ivanovotextil.ru/bitrix/redirect.php?goto=https://uscasinoguides.com/
click here https://nivaz.ru:443/redirect?url=https://uscasinoguides.com/