Event problem (nok ret simpelt?!?)

Jeg jender ikke delphi men VB.

Og i VB gør jeg det sådan at jeg tjekker på navnet af knappen. Hvis en knap har det-og-det navn kører den følgende rutine (og evt. ændrer knappens navn, så næste gang den bliver trykket ned udfører den en anden funktion)

En buttons OnClick event vil have en porcedure alla den her :

TForm1.ButtonClick(Sender : TObject);


fidusen er så at i din sender variabel har du den knap der har kaldt dit event ...

prøv fx det her :

procedure TForm1.Button1Click(Sender: TObject);
var
  Button : TButton;
begin
  Button := TButton.Create(Form1);
  with Button do
  begin
    Left := 10;
    Top := 10;
    OnClick := ButtonClick;
    Caption := \'HEST\';
  end;
InsertControl(Button);
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
  with (Sender as TButton) do
    ShowMessage(Caption);
end;


Jens B

Din OnClick event har en \"Sender\" som er en \"pointer\" til den der sender meddelelsen og det vil i dette tilfælde sige \"den knap\" er blev trykket på.

Borrisholt> Det er sgu da klart at dit svar kommer 6 sekunder hurtigere end mit når du \"bruger HEST\"  ;-)

Har jeg forstået det rigtigt, hvis jeg tror at det du vil, er at have en masse knapper på dit window som alle kalder EN metode, således at der mere eller mindre udføres den samme handling for alle knapper - Forskellen er måske bare hvilken variabel der tælles op i et array?

I så tilfælde vil di onClick metode have en parameter du kan bruge.  (Jeg mener at den heder Sender og er af typen TObject).

Du har flere muligheder:

Procedure ButtonClick(Sender :; TObject);
Begin
  If Sender = Button1 Then ....;
  If Sender = Button2 Then ....;
End;

Noget spazzet metode.

Andet forslag, og noget smartere.

Alle dine buttons har en property kaldet tag.  Sæt denne tag med en unik værdi for hver button, alá:

For i := 0 to MaxNo
  button[i].tag := i;

Skriv så i din button click metode (som alle din buttons onClick event peger på):

Procedure ButtonClick(Sender :; TObject);
Var
  ButNo : Integer;
Begin
  ButNo := (Sender As TButton).Tag;

  Tabel[ButNo] := Tabel[ButNo] + 1;
End;

Tabel[] er her en array hvor hvert element tælles en op for hvergang en button trykkes.


Bemærk at det her er AS operatoren der er spændende - slå den op i hjælpen med F1.

(Fra hovedet - dvs. ikke afprøvet)

Delphi

Man får ikke mange sekunder til at digte et svar her i firmaet...

Jeg vidste havde godt regnet med at det var sender der var nøglen i det hele men jeg vidste ikke hvordan den virkede.....

Nu er \"caption\" tom på alle knapper, men \"sender\" indeholder vel også \"name\" og alle de andre properties ?!? :)

Og den store forskel er ?

Borris>> du opretter en button i din button click.... du mener vel i din FormCreate, ik?  (og hvor egentligt lave knapperne under runtime? - bare fordi man kan, eller hva\'?)

Delphi

pellelil  >> Hvordan kan man skrive et program uden at bruge ordet HEST ?

Jens B

Det er lidt dumt at søge på sender\'s name eller caption properties, alene af den grund at disse (ihvert fald captionen) kan ændres, hvis applikationen benyttes på forskellige sprog.  Desuden giver det en masse nestede IF sætninger.  Jeg foretrækker metoden med at give knappernes tag property en værdi og så teste på den.  Det er hurtigere og sikrere og så er det iøvrigt derfor Borland gav alle controls en tag property - men hver mand sin lyst.

Peter

Hmmm... tak.. i er damn hurtige..... jeg er lidt newbie på eksperten.dk.... kan det passe at man kun kan acceptere svar en gang ??

Jeps

men du kan dele point\'ene på flere personer.

borrisholt> Det er sgu da derfor min InterBase driller mig lidt. Der er ingen HEST\'e med.

dino-cip> sender er en pointer der peger på afsenderen og som hvis du gør som flg: \"if (sender AS TBUTTON).Caption = \'\' then bla.bla.bla.\" men jeg ville i stedet bruge pointeren direkte

<SNIP>
  case sender of
    button[1] : bla. bla. bla.; 
    button[2] : bla. bla. bla.; 
    button[3] : bla. bla. bla.; 
    button[4] : bla. bla. bla.; 
  end;
</SNIP>

Kan man lave en case på en pointer? Tjaee det kan man vel - jeg har dog ikke prøvet.

delphi>> grunden til at de skal laves under run-time er at der skal laves 10*10 af dem... altså et et helt skema... og det skal kunne varieres :)

Borris>> HEST er et, efter min erfaring, noget overdrevet fænomen i forbindelse med Delphi programmering.  Jeg får faktisk en del bedre resultater, hvis jeg undelader mere eller mindre tilfældig brug af begrebet HEST i min kode - om ikke andet, så er min compiler mere tilbøjeligt til at æde koden uden kedelige fejl og advarsler. Har man tilbøjelighed til at placere mere eller mindre relevante samlinger af tegn og bogstaver i sin kode, så vil jeg anbefale at man benytter tegner \';\' (semikolon), idet compileren ikke ser ud til at have så meget imode dette tegn, evt i en serie som fx. \';;;;\', som den har imod HEST. 

Delphi

Jamen så er det da så meget mere naturligt at du benytter TAG, idet din kode så ikke er afhængig af antallet af buttons.  Laver du en struktur som:

<SNIP>
  case sender of
    button[1] : bla. bla. bla.; 
    button[2] : bla. bla. bla.; 
    button[3] : bla. bla. bla.; 
    ...
    button[100] : bla. bla. bla.; 
  end;
</SNIP>

Så fylder det dels 100+ linier og dels skal du lave koden om hvis du en dag skal have 101 buttons. Dette er ikke nødvendigt med tags.

Delphi

Sålænge button er et array så er det vel hip-som-hap om man gør det ene eller det andet (tag eller pointeren) da man bare kan bruge arrayet.

HEST eller ikke-HEST; jeg mindes stadig den dag hvor kunden undrede sig over at der lige pludslig stor \"HUGO\" midt på skærmen og at en programmør blev rød i hovedet.

Af at være et test ord er HUGO ikke så slemt ..
fi.... havde da været værer eller noget ligende ...

Jens B

Forøvrigt, på et noget mere personligt plan, kan jeg sige, at nu er jeg nok lidt væk de næste 14 dag.  Jeg har valgt mig et nyt firma at arbejde i.  Danfoss blev lidt for meget efter 14 år...

Delphi