Prüfen, ob biMaximize in BorderIcons vorhanden

[Michael_Bayer]

Hallo.
Wie prüfe ich denn eigentlich, ob zb. biMaximize in Bordericons einer Form ist?

Hinzufügen kann ich ja mit

Delphi-Quellcode:

BorderIcons := BorderIcons + [biMaximize]

Aber wie prüfe ich es?

Gruß
Micha

[Waldteufel]

Hi.

Delphi-Quellcode:

 if biMaximize in BorderIcons then MachWas(1, 2, 3, '*hicks*');

[Michael_Bayer]

Dankeschön

PS: Der wahrscheinlich schnellste Thread der Welt ;)

[Waldteufel]

Bitteschön.

Es ist übrigens schneller, die Set-Funktionen Include() und Exclude() zu verwenden. ;-)

Also in deinem Fall:

Delphi-Quellcode:

Include(BorderIcons, biMaximize);
  {bzw.}
Exclude(BorderIcons, biMaximize);

[edit] Tippfehler :wall: [/edit]

[Michael_Bayer]

Zitat:

Zitat von Waldteufel

Bitteschön.

Es ist übrigens schneller, die Set-Funktionen Include() und Exclude() zu verwenden. ;-)

Also in deinem Fall:

Delphi-Quellcode:

Include(BorderIcons, biMaximize);
  {bzw.}
Exclude(BorderIcons, biMaximize);

[edit] Tippfehler :wall: [/edit]

Da kommt ein "Der linken Seite kann nichts zugewiesen werden" :gruebel:

[Waldteufel]

Hi.

Zitat:

Zitat von Michael_Bayer

Da kommt ein "Der linken Seite kann nichts zugewiesen werden" :gruebel:

Delphi-Quellcode:

procedure MachWas;
var
  x : set of char;
begin
  Include(x, 'c');
  Include(x, 'y');
  if 'c' in x then ShowMessage('c is drin...');
  if 'h' in x then ShowMessage('h is drin...');
  Exclude(x, 'c');
  Include(x, 'h');
  if 'c' in x then ShowMessage('c is jetzt drin...');
  if 'h' in x then ShowMessage('h is jetzt drin...');
end;

liefert 'c ist drin...' , 'h ist jetzt drin...'

[Aike]

Zitat:

Zitat von Waldteufel

Hi.

Delphi-Quellcode:

if biMaximize in BorderIcons then MachWas(1, 2, 3, '*hicks*');

Leider funktioniert

Delphi-Quellcode:

if not biMaximaze in BorderIcons then ...

nicht. Was ist denn hier der "Umkehrschluss"?

[Sharky]

Zitat:

Zitat von Aike

... Was ist denn hier der "Umkehrschluss"?

Das richtige Verwenden von Klammern ;-)

Delphi-Quellcode:

if not (biMaximize in BorderIcons) then
begin
  ShowMessage('Ist nicht da');
end;