Hejs
Har skapat ett objekt bestående av TPanel men har nu problem att kunna skicka ett värde med OnClick funktionen.
Objekt.OnClick := function(x) , fungerar inte. Fungerar om man inte skickar någon variabel. Någon som har en lösning. Man behöver väl antagligen göra om den fördefinierade OnClick metoden men har inte lyckats med det.

Några lösningar??

// Bosse

1. Du måste skriva en funktion som gör något och returnerar ett värde.
Här har jag ett enkelt exempel som returnerar HighWord av det x jag sänder
<code>
implementation
{$R *.DFM}
Function HiWrd(dw : Integer):Integer ;
Begin
HiWrd := dw div 65535 ;
End ;

procedure TForm1.Button1Click(Sender: TObject) ;
Begin
Label1.Caption := IntToStr(HiWrd(123456)) ;
End;
end.
</code>
Label1 kommer att få det värde som HiWrd returnerar.

Tackar för hjälpte båda två men tyvärr löste det inte problemet mitt... Förklarade kanske lite dåligt.

Henrik: Jag har lyckas få fram värdet jag vill åt från panelen precis som du också visade men sen innehåller objektet också andra komponenter såsom TImage och till den lyckas jag inte få ut värdet.