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
BorderIcons := BorderIcons + [biMaximize] Aber wie prüfe ich es?

Gruß
Micha

[Waldteufel]

Hi.

 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 [/edit]

[Michael_Bayer]

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 [/edit]

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

[Waldteufel]

Hi.

Zitat von Michael_Bayer:

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

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 von Waldteufel:

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

Leider funktioniertif not biMaximaze in BorderIcons then ... nicht. Was ist denn hier der "Umkehrschluss"?

[Sharky]

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;