TFrameStand
TFrameStand copied to clipboard
add callback function in demo picture wall
i add callback function to demo picturewall
property OnClickResult: TProc<Boolean> read FOnClickResult write FOnClickResult;
and use it in main form
LInfo.Frame.PositionIndex := LIndex;
LInfo.Show;
LInfo.Frame.OnClickResult:=
procedure (aResult : Boolean)
begin
if aResult then
begin
response:=LInfo.Frame.PositionIndex;
showmessage(inttostr(response));
end;
end;
when i click on picture LInfo.Frame.PositionIndex is last number of PositionIndex PictureWall.zip