z Delphi do BCB

0

Cze!
Mam kilka SpeedButton'ów (b1,b2,b3,b4,b5) i chciałbym w BCB zrobić coś takiego.

procedure TMainFrmU.b1Click(Sender: TObject);
begin
if SpeedButton1.Down then
TSpeedButton(Sender).Caption := 'blablabla'
else
TSpeedButton(Sender).Caption := 'blebleble';
end;

0

Wykorzystaj konstrukcje

dynamic_cast<TSpeedButton*>(Sender) -> Caption = "Sender";
0

Nie programuje w Delphi ale za to w BCB. Jak dobrze zrozumialem to chodzi ci o cos takiego:

Na formatke rzucasz 5 przyciskow Button
Osobno klikasz na każdy z nich i wpisujesz coś takiego, co po wykonaniu dla każdego z osobna wydladać powinno tak:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1->Caption="Klik 1";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Button2->Caption="Klik 2";        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Button3->Caption="Klik 3";        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
Button4->Caption="Klik 4";        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
Button5->Caption="Klik 5";        
}
//---------------------------------------------------------------------------
0

A jak masz 100 przyciskow?:)

1 użytkowników online, w tym zalogowanych: 0, gości: 1