如何用 findwindow 用例

Question

如何在以下代码中使用 CASE？

  if (Pos('1080', IntToStr(Screen.Height)) > 0) and (FindWindow(nil, 'Stack Overflow - Google Chrome') > 0) then
  begin
    Form1.Top := 66;
    Form1.Left := 546;
  end;
  if (Pos('1080', IntToStr(Screen.Height)) > 0) and (FindWindow(nil, 'Stack Overflow - Mozilla Firefox') > 0) then
  begin
    Form1.Top := 76;
    Form1.Left := 546;
  end;

我试试用这个

var
  resolu : string;
begin
  resolu := IntToStr(Screen.Height);
  case AnsiIndexStr(resolu, ['1080', '768','864', '720', '1050', '1024', '960', '900', '800'])  of
  0 :
  begin
    Form1.Top := 80;
    Form1.Left := 900;
  end;

但我需要检查 window 是否在特定浏览器中打开。

Answer 1

有点不清楚你在问什么，但你的浏览器检查可以这样完成：

procedure TForm1.SetFormPosition;
type
  TBorwser = (Chrome, Firefox);
const
  WindowText: array [TBorwser] of pChar = ('Stack Overflow - Google Chrome', 'Stack Overflow - Mozilla Firefox');
var
  Borwser, BrowserFound: TBorwser;
  WindowFound: Boolean;
begin
  WindowFound := False;
  for Borwser := low(TBorwser) to high(TBorwser) do
    if FindWindow(nil, WindowText[Borwser]) > 0 then
    begin
      WindowFound := True;
      BrowserFound := Borwser;
    end;

  if not WindowFound then
    exit;

  case BrowserFound of
    Chrome:
      begin
        Form1.Top := 66;
        Form1.Left := 546;
      end;

    Firefox:
      begin
        Form1.Top := 76;
        Form1.Left := 546;
      end;

  end;

end;

Answer 2

非常完美，谢谢。

    case BrowserFound of
    Chrome:
      begin
          case Screen.Height of
             1080 : Brada.Left := 546;
             1050 : Brada.Left := 504;
             1024 : Brada.Left := 478;
             960 : Brada.Left := 414;
             900 : Brada.Left := 354;
             800 : Brada.Left := 236;
             864 : Brada.Left := 277;
             768 : Brada.Left := 222;
             720 : Brada.Left := 225;
          end;
      end;

    Firefox:
      begin
        case Screen.Height of
          1080 : Brada.Left := 546;
        end;
      end;
  end
end;

如何用 findwindow 用例

How use case with findwindow

delphi

case

delphi-xe7