Styles

[Dax]

Wenn ich folgenden Code habe:

Delphi-Quellcode:

procedure get;
var
  Style, StyleEx: cardinal;
begin
  Style := getwindowlong(handle, gwl_style);
  StyleEx := getwindowlong(handle, gwl_styleex);
end;

Wie kann ich aus Style und StyleEx die benutzen (Ex)Styles (z.B.: WS_VISIBLE or WS_DISABLED) zurückerhalten?

[sakura]

Einfach mit AND vergleichen:

Delphi-Quellcode:

procedure get;
var
  Style, StyleEx: cardinal;
begin
  Style := getwindowlong(handle, gwl_style);
  if Style and (WS_VISIBLE or WS_DISABLED) = (WS_VISIBLE or WS_DISABLED) then
    // ... hehe, beide sind da ;-)

......

[Dax]

Ich will aber nicht jede möglichkeit einzeln durchspielen, sondern das einer schleife überlassen. Nur wie??

[choose]

Was willst Du denn mit dem Ergebnis machen?

• Wenn Du es in einer Liste oä ausgeben willst, musst Du ohnehin noch den Wert von zB WS_VISIBLE in einen Bezeichner übersetzen...
• Du könntest Du den Test von sakura über eine Array von Integers durchführen, zB
  
  Delphi-Quellcode:

  procedure CheckWindowStyle(const AStyle: Cardinal;
    const arIdents: array of Integer);
  var
    i: Integer;
  begin
    for i:= Low(arIdents) to High(arIdents) do
      if SakurasTest then
        //do sth here...
  end;

  mit
  CheckWindowStyle(myStyle, [SW_VISIBLE, SW_DISABLED]);
• Du könntest über die einzelnen Bits iterieren und
• bestimmt noch 42 andere Verfahren anwenden...

Es hängt davon ab, was Du mit dem Ergebnis vorhast.

[Dax]

@sakura: Funktioniert!
@choose: Funktioniert nicht(bei mir).

[choose]

Zitat von gecko2000:

@choose: Funktioniert nicht(bei mir).

Was genau funktioniert nicht bei Dir?

[Dax]

Er bringt mir bei dieser Funktion jedes mal bei der Array-Stelle eine Zugriffsverletzung.

[choose]

Welche "Array-Stelle" meinst Du? Handelt es sich um einen Laufzeitfehler oder etwas, das beim Kompilieren erkannt und abgelehnt wird?

[Dax]

1: Wenn das array zum ersten mal ge-accest wird.
2: Nein.(schön wär's) Er bringt mir den Fehler erst, wenn ich den ersten Wert im array auslesen will...

[choose]

Probier das

Delphi-Quellcode:

procedure CheckWindowStyle(const AStyle: Cardinal;
  const arIdents: array of Integer);
var
  i: Integer;
begin
  for i:= Low(arIdents) to High(arIdents) do
    showmessage(Format('AStyle: %.8x, arIdent[%d]=%.8x',
      [AStyle, i, arIdents[i]]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckWindowStyle( $f00, [WS_VISIBLE, WS_DISABLED]);
end;

Wenn es klappen sollte, liegt der Fehler wahrscheinlich in dem Teil, der auf die gesetzten Bits prüft...
Du bekommst also einen Fehler zur Laufzeit (Exception)? Wie genau lautet dessen Bezeichnung?