Виртуальная библиотека Delphi

begin

 StringGrid1.Rows[1].Strings[0] := 'This Row';

 StringGrid1.Cols[1].Strings[0] := 'This Column';

end;

function GetGridColumnByName(Grid : TStringGrid; ColName : string): integer;

var

 i : integer;

begin

 for i := 0 to Grid.ColCount - 1 do if Grid.Rows[0].Strings[i] = ColName then  begin

  Result := i;

  exit;

 end;

 Result := -1;

end;

function GetGridRowByName(Grid : TStringGrid; RowName : string): integer;

var

 i : integer;

begin

 for i := 0 to Grid.RowCount - 1 do if Grid.Cols[0].Strings[i] = RowName then begin

  Result := i;

  exit;

 end;

 Result := -1;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

 Column : integer;

 Row : integer;

begin

 Column := GetGridColumnByName(StringGrid1, 'This Column');

 if Column = -1 then ShowMessage('Column not found')

 else ShowMessage('Column found at ' + IntToStr(Column));

 Row := GetGridRowByName(StringGrid1, 'This Row');

 if Row = -1 then ShowMessage('Row not found')

 else ShowMessage('Row found at ' + IntToStr(Row));

end;

Вопрос:

Как использовать клавишу-акселератор в TTabsheets? Я добавляю клавишу-акселератор в заголовок каждого Tabsheet моего PageControl, но при попытке переключать страницы этой клавишей программа пикает и ничего не происходит.

Ответ: Можно перехватить сообщение CM_DIALOGCHAR.

Пример:

type TForm1 = class(TForm)

 PageControl1: TPageControl;

 TabSheet1: TTabSheet;

 TabSheet2: TTabSheet;

 TabSheet3: TTabSheet;

private {Private declarations}

 procedure CMDialogChar(var Msg:TCMDialogChar); message CM_DIALOGCHAR;

public

  {Public declarations}

end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMDialogChar(var Msg:TCMDialogChar);

var

  i : integer;

begin

 with PageControl1 do begin

  if Enabled then for i := 0 to PageControl1.PageCount - 1 do if ((IsAccel(Msg.CharCode, Pages[i].Caption)) and (Pages[i].TabVisible)) then begin

   Msg.Result:=1;

   ActivePage := Pages[i];

   exit;

  end;

 end;

 inherited;

end;

Вопрос:

При использованиии компонента TRegistry под NT пользователь с права доступа ниже чем "администратор" не может получить доступа к информации реестра в ключе HKEY_LOCAL_MACHINE. Как это обойти?

Ответ:

Проблема вызвана тем, что TRegistry всегда открывает реестр с параметром KEY_ALL_ACCESS (полный доступ), даже если необходим доступ KEY_READ (только чтение). Избежать этого можно используя функции API для работы с реестром (RegOpenKey и т.п.), или создать новый класс из компонента TRegestry, и изменить его так чтобы можно было задавать режим открытия реестра.

Вопрос:

Можно ли изменить число колонок и их ширину в компоненте TFileListBox?

Ответ:

В приведенном примере FileListBox приводится к типу TDirectoryListBox — таким образом можно добавиь дополнительные колонки.

Пример:

with TDirectoryListBox(FileListBox1) do begin

 Columns := 2;

 SendMessage(Handle, LB_SETCOLUMNWIDTH, Canvas.TextWidth('WWWWWWWW.WWW'),0);

end;

Вопрос:

Как настроить табуляцию в компоненте TMemo?

Ответ:

Пошлите в Memo сообщение EM_SETTABSTOPS. Например установим первую позицию табуляции на 20-й пиксел.

Пример:

procedure TForm1.FormCreate(Sender: TObject);

var

 DialogUnitsX : LongInt;

 PixelsX : LongInt;

 i : integer;

 TabArray : array[0..4] of integer;

begin

 Memo1.WantTabs := true;

 DialogUnitsX := LoWord(GetDialogBaseUnits);

 PixelsX := 20;