Лао Сен Чанг Тан ИТ-помощь

Сегодня хочу протестировать функцию подключения Delphi к AD，Обучение в Интернете，Вы можете использовать «Компонент → Импортировать компонент».…» импортировать，Но в реальной эксплуатации，Но есть “Произошла ошибка при доступе к входу в систему OLE.。” 的錯誤訊息。

Продолжить просмотр »

Быстрый отчет в 1920*1080 разрешение плюс 125% Когда указанная выше среда настройки дисплея，Пропорция «Предварительный просмотр печати» будет неправильной.(слишком большой или слишком маленький)，Но фактическая печать нормальная.，Если вы хотите исправить，Необходимо изменить файл qrprntr.pas быстрого отчета в среде компиляции.，Есть два способа исправить это。

Продолжить просмотр »

unit unit1;

interface

uses
  Windows, Messages....

type
  TFormName = (Casefm1, Casefm2, Casefm3);

function xxx(): Boolean;
var
  StrFormName: String;
  CaseFormName: TFormName;
begin
  StrFormName := 'Case' + vFormName; 
  // 將 FormName(物件) 與 TFormName(值) 做區隔。
  // (vFormName為帶有各FormName的字串變數)
  CaseFormName := TFormName(GetEnumValue(TypeInfo(TFormName), StrFormName));

  case CaseFormName of
    Casefm1:
      begin
        ..............
      end;

    Casefm2:
      begin
        ..............
      end;

    Casefm3: 
      begin
       ...............
      end;

【參考連結】

• метод case для оценки строки | три пещеры

Кажется, что в меню Delphi всегда используются шрифты, которые возвращаются к значениям по умолчанию. (8, Тахома) Проблема，Вопросы из-за границы，но нет решения。Временное решение, о котором я могу думать на данный момент, - установить функциональную клавишу (Можно установить как горячую клавишу)，Пусть пользователь сталкивается с маленьким размером шрифта，Сбросить размер шрифта самостоятельно。(Во время тестирования шрифт меню можно вернуть к значению по умолчанию, изменив процент размера экрана Windows.)

procedure Tmainform.N93Click(Sender: TObject);
begin
  Screen.MenuFont.Size := 12;
  xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。
end;

【參考連結】

• Принудительное перерисовывание меню Delphi VCL – Переполнение стека
• иногда: Увеличение шрифта Delphi MainMenu и отсутствующий значок подсказки Menu Checked

procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116)  and (HiWord(GetKeyState(VK_CONTROL)) = 1)  then 
  begin
    ......
  end
end;

【參考連結】

• Захватить клавишу SHIFT во время выбора пункта меню? – Советы Делфи – ЗАО Дельфи (Крутые советы Delphi)
• GetKeyState:GetKeyState ，Эта функция извлекает указанный виртуальный ключ -Энциклопедия знаний китайской сети
• ДЕЛФИ ОнКейДаун,OnKeyPress,Разница OnKeyUp-CSDN Blog_delphi onkeydown
• таблица значений ключей delphi – Тайваньское племя
• Как определить нажатие клавиши ctrl-t в Delphi – Переполнение стека
• Таблица сравнения значений кодов клавиш клавиатуры

var
  vTime, vTime1, vTime2: double;
begin
  vTime1 := GetTickCount();
  vTime2 := GetTickCount();
  vTime := (vTime2 - vTime1) / 1000;
  Showmessage(floatToStr(vTime) + 's');
end;

【參考連結】

• Как Delphi находит разницу между двумя значениями времени в секундах?-CSDN-сообщество

За две недели до компания сетевой архитектуры капитального ремонта，Busy Bee，При изменении IP сервера печати，Там будут два очень машина криво，Сначала позвольте мне начинать изменения，Позже, после того, как меняется к лучшему，Стать длительный период бездействия，Он сломаю，Пробовал в день，Наконец отказ от，Я схватил небольшую программу，放在Server讓程式每隔30秒就對print server來ping一下。

Продолжить просмотр »