begin
// 메뉴 버튼을 만든다
SetLength(sbt_Menu, conMaxMenuCount);
for Index := 0 to conMaxMenuCount-1 do
begin
sbt_Menu[Index] := TSBPosButton.Create(Self);
with sbt_Menu[Index] do
begin
Parent := Self;
Width := 65;
Top := (Index div conMaxMenuTypeCount)*(Height-1)+sbt_MenuPageUp.Top;
Left := (Index mod conMaxMenuTypeCount)*(Width -1);
Caption.ColorShadow := clSilver;
Number.Number := Index+1;
Tag := Index;
Enabled := False;
DontKeyPress := True;
Beep := 3;
ShowHint := True;
OnClick := sbt_MenuClick;
end; // with sbt_Menu[Index] do
end; // for Index := 0 to conMaxMenuCount-1 do
end;
위와 같은 형태로 메뉴버튼을 만들었습니다.
근데 문제는 한페이지에 보여지는 버튼이 30인데 30개를 초과 하게 되면 메뉴 힌트값이 처음 보여지는 메뉴값이 아니라 맨 마지막 페이지 메뉴의 힌트값이 보여집니다.
첫페이지 첫메뉴라는 인식시켜줘야 한다는건데 어찌해야 할지를 모르겠네요...무지함이...-_-++
답변 부탁드립니다.