Карта сайтаСсылкиКонтакты

Случайная новость

Как выделить узлы в TTreeView

Как некоторые узлы в TTreeView выделить жирным шрифтом? Есть самый простой, но надежный способ реализации этого. Стандартное управление Windows TreeView имеет несколько флагов состояния (в нашем примере TVIS_BOLD и TVIS_CUT). При помощи этих флагов можно добиться нужного результата.

Подробнее ...

Функция FileExists

Эта функция проверяет, существует ли указанный файл.

Функция FileExists возвращает значение True, если указанный в переменной sFileName файл существует и False, если такового файла нет по указанному пути.


var txtFile : string;

txtFile := 'c:\My Documents\test.txt'

if not FileExists(txtFile) then begin
 ShowMessage('TXT файл ' + #13#10 +
              txtFile + #13#10 + 'не существует!');
 exit;
end;
 

Как проверить, является ли вся строка в верхнем регистре

Функция IsUpperCase возвращает True, если строка, переданная, как параметр Value, вся находится в верхнем регистре.

Вот эта функция:


function IsUpperCase(Value: string): Boolean;
 begin
    Result := Value = UpperCase(Value) ;
 end;

Пример использования:


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsUpperCase('PROBA')));
end;
 

Добавление иконки в ListBox

Программирование на Delphi

Чтобы добавить иконку в TListBox, выполните следующее:


procedure TForm1.Button1Click(Sender: TSender); 
var Icon: TIcon; 
begin 
 Icon := TIcon.Create; 
 Icon.LoadFromFile('DELPHI.ICO'); 
 ListBox1.Items.AddObject('Delphi', Icon); 
end;

И далее:


procedure TForm1.ListBox1DrawItem(Control: TWinControl; 
    Index: Integer;
    Rect: TRect; State: TOwnerDrawState);
var

  Icon: TIcon;
  Offset: Integer; { Смещение текста }
begin

  with (Control as TListBox).Canvas do
    { Рисуем на управлении }
  begin
    FillRect(Rect); { Очищаем прямоугольник }
    Offset := 20; { Смещение по умолчанию }
    Icon := TIcon((Control as TListBox).Items.Objects[Index]);
      { Получаем иконку для этого пункта }
    if Icon <> nil then
    begin
      Draw(Rect.Left + 1, Rect.Top + 2, TIcon((Control as
        TListBox).Items.Objects[Index]));

      Offset := Icon.width + 9;
        { Добавляем пробел между иконкой и текстом }
    end;
    TextOut(Rect.Left + Offset, Rect.Top + 7, (
        Control as TListBox).Items[Index])
      { Вывод текста }
  end;
end;
 

Как получить путь к папке Temp

Функция GetTempWindows возвращает путь к системной временной папке Temp.


function GetTempWindows: string;
var
  lng: DWORD;
  thePath: string;
begin
  SetLength(thePath, MAX_PATH) ;
  lng := GetTempPath(MAX_PATH, PChar(thePath)) ;
  SetLength(thePath, lng) ;
  result:= thePath;
end;

Пример использования:


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetTempWindows);
end;
 

Отключение обработчика события после выполнения

Вам когда-нибудь приходилось сталкиваться с таким: отключить обработчик события, когда оно будет выполнено один раз (например, отключить событие OnClick кнопки, как только пользователь нажал на нее). Для этого нужно установить обработчик события в nil.

 

Показать форму без фокуса

Чтобы показать форму без фокуса, выполните следующее:

 

Как программно открыть и закрыть ComboBox

Чтобы открыть или закрыть ComboBox программно, нужно просто отправить ему сообщение CB_SHOWDROPDOWN.

 

Как узнать имя активного пользователя

Чтобы узнать имя активного пользователя, используем функцию CurrentUserName:


function CurrentUserName:String;  
var  
  u: array[0..127] of Char;  
  sz:DWord;  
begin  
  sz:=SizeOf(u);  
  GetUserName(u,sz);  
  Result:=u;  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  ShowMessage(CurrentUsername);  
end;
 

Получение серийного номера Windows

Чтобы получить серийный номер Windows, мы будем использовать реестр:

 

Как определить имя тома

Определяем имя тома определенного диска:

 

Начать или остановить воспроизведение звука

Для остановки воспроизведения звука нужно просто вызвать эту же функцию воспроизведения с переданным параметром NIL.

 

Нажата клавиша Enter на стандартной клавиатуре или на цифровой

Как различить: пользователь нажал Enter (Return) на стандартной клавиатуре или на цифровой?

 

Преобразование Микросекунд в значение TDateTime

Функция FormatDateTime преобразовывает значение TDateTime в строковое значение. При использовании параметров форматирования можно задать способ отображения времени с точностью до миллисекунд.

 

Преобразование BMP в JPG

Вы можете легко преобразовывать изображение из формата BMP в JPG.

 

Преобразование TColor в Hex и Hex в TColor

Вашему вниманию представляются две простые функции для преобразования значения цвета из TColor в Hex (HTML) и наоборот:

 

Как скачать файл при помощи FTP

Эта функция показывает, как подключиться к FTP серверу и загрузить файл. Она использует функции из wininet.dll.

 
Еще статьи...
«В начало12345678910В конец»