Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Dinamicki kreirani bitbtn

[es] :: Pascal / Delphi / Kylix :: Dinamicki kreirani bitbtn

[ Pregleda: 2066 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

segment
Vesna Lazareska Arsik
Skopje, Makedonija

Član broj: 280596
Poruke: 30
79.126.136.*



Profil

icon Dinamicki kreirani bitbtn13.11.2014. u 12:45 - pre 68 meseci
Pocituvani,
imam i: array[1..100] of tbitbtn;
i vo runtime kreiram nekolku bitbtn, kako da definiram sto da se pravi na onClick.
Propertis se mozam da definiram no Events nemozam :( t.e. ne znam kako
Odnapred Vi Blagodaram na pomosta
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Dinamicki kreirani bitbtn13.11.2014. u 15:00 - pre 68 meseci
http://stackoverflow.com/questions/22710236/creating-a-new-btnclick-procedure-for-a-dynamic-button

Evo, možda pomogne.
F
 
Odgovor na temu

segment
Vesna Lazareska Arsik
Skopje, Makedonija

Član broj: 280596
Poruke: 30
46.217.160.*



Profil

icon Re: Dinamicki kreirani bitbtn16.11.2014. u 16:11 - pre 68 meseci
Ova e ok,
megutoa kako da znam od taa niza na button-i koj tocno e kliknat zasto vo zavisnost od toa treba da se izvrsi nekoja akcija
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Dinamicki kreirani bitbtn16.11.2014. u 19:21 - pre 68 meseci
Code (delphi):
type
  TfrmSale = class(TForm)
    redOutput: TRichEdit;
    btnBuy: TButton;
    procedure btnBuyClick(Sender: TObject);     <<--- link made in designer
  private                                      VVVVV-- from here on it's
    pnlSale : TPanel;                                  your responsibility
    edtQuantity : TEdit;
    rgpOptions : TRadioGroup;
    btnSelect : TButton;
    [b]procedure btnSelectCick(Sender: TObject);[/b]  <<-- link must be made in code
  public
    { Public declarations }
  end;

var
  frmSale: TfrmSale;

implementation

{$R *.dfm}

procedure TfrmSale.btnBuyClick(Sender: TOBject);
begin
  pnlSale := TPanel.Create(frmSale);
  pnlSale.Parent := frmSale;
  pnlSale.Left := 10;
  pnlSale.Top := 10;
  pnlSale.Width := 350;
  pnlSale.Height := 250;
  pnlSale.Visible := True;

  edtQuantity := TEdit.Create(pnlSale);
  edtQuantity.Parent := pnlSale;
  edtQuantity.Left := 50;
  edtQuantity.Top := 60;
  edtQuantity.Width := 80;
  edtQuantity.Height := 20;
  edtQuantity.Text := '
Quantity';
  edtQuantity.Visible := True;

  rgpOptions := TRadioGroup.Create(pnlSale);
  rgpOptions.Parent := pnlSale;
  rgpOptions.Left := 30;
  rgpOptions.Top := 100;
  rgpOptions.Width := 300;
  rgpOptions.Height := 140;
  rgpOptions.Visible := True;
  rgpOptions.Caption := '
Options';
  rgpOptions.Items.Add('
Screws 12mm');
  rgpOptions.Items.Add('
Canned Peaches 250g');
  rgpOptions.Items.Add('
Tomatoes');
  rgpOptions.Items.Add('
Spaghetti 500g');
  rgpOptions.Items.Add('
Twin Flex 5m');
  rgpOptions.Items.Add('
Clear Glue 250ml');

  btnSelect := TButton.Create(frmSale);
  [b]btnSelect.OnClick:= btnSelectCick;[/b][u][/u]   <<-- Assign the button handler
  btnSelect.Parent := frmSale;
  btnSelect.Left := 130;
  btnSelect.Top := 260;
  btnSelect.Width := 80;
  btnSelect.Height := 40;
  btnSelect.Caption := '
Select';
  end;

procedure TfrmSale.btnSelectClick(Sender: TOBject);
begin
  redOutput.Lines.Add(rgpOptions.Lines[rgpOptions.ItemIndex]);  <<-- DRY
end;

F
 
Odgovor na temu

segment
Vesna Lazareska Arsik
Skopje, Makedonija

Član broj: 280596
Poruke: 30
46.217.54.*



Profil

icon Re: Dinamicki kreirani bitbtn16.11.2014. u 20:06 - pre 68 meseci
Da ova bese se ok samo mene mi trebase za nepoznat broj na kopcinja t.e. jas imav
k1: array[1..200] of TBitbtn;

t.e. ova mi falese

procedure Tstatus_sobi_frm.k1click(sender:TObject);
var b: TBitBtn;
begin
b := Sender as Tbitbtn;

Sega mozam da kalkuliram so b kade spored nazivot odam na opredeleni akciii

Fala za pomosta
 
Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1327
*.dynamic.sbb.rs.



+307 Profil

icon Re: Dinamicki kreirani bitbtn16.11.2014. u 21:18 - pre 68 meseci
Možeš da koristiš Tag property da bi preneo neku informaciju.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Dinamicki kreirani bitbtn

[ Pregleda: 2066 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.