Позиционирование каретки в TStringGridDelphi , ОС и Железо , Мышка и КурсорПозиционирование каретки в TStringGrid
Оформил: DeeCo { The following code allows you to position the caret in a cell (InplaceEditor) of a StringGrid. We need a Cracker class to access the InplaceEditor. Mit folgendem Code kann man den Cursor in einer Zelle (InplaceEditor) eines StringGrids positionieren. Hierfur brauchen wir eine "Cracker" Klasse, weil der InplaceEditor "protected" ist. } type TGridCracker = class(TStringGrid); {...} implementation {...} procedure SetCaretPosition(Grid: TStringGrid; col, row, x_pos: Integer); begin Grid.Col := Col; Grid.Row := Row; with TGridCracker(Grid) do InplaceEditor.SelStart := x_pos; end; // Get the Caret position from the focussed cell // Ermittelt die Caret-Position der aktuellen Zelle function GetCaretPosition(Grid: TStringGrid): Integer; begin with TGridCracker(Grid) do Result := InplaceEditor.SelStart; end; // Example / Beispiel: // Set the focus on col 1, row 3 and position the caret at position 5 // Fokusiert die Zelle(1,3) und setzt den Cursor auf Position 5 procedure TForm1.Button1Click(Sender: TObject); begin StringGrid1.SetFocus; SetCaretPosition(StringGrid1, 1, 3, 5); end; Статья Позиционирование каретки в TStringGrid раздела ОС и Железо Мышка и Курсор может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Мышка и Курсор ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |