бы его можно было послать TPageControl для переключения на нужную мне страницу ?
const TCM_FIRST = $1300; TCM_SETCURSEL = TCM_FIRST + 12; procedure TForm1.Button1Click(Sender: TObject); var h: THandle; pageindex: Integer; begin h := page control handle; pageindex := index of page to be selected SendMessage(h, TCM_SETCURSEL, pageindex, 0); end;
Обсуждают сегодня