TSpeedbutton

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
malabarista
Beiträge: 321
Registriert: Sa 11. Jun 2016, 12:16
OS, Lazarus, FPC: Linux Mint 18.1 L1.6.2-1 FPC 3.0.0
CPU-Target: 64Bit
Wohnort: Konstanz

TSpeedbutton

Beitrag von malabarista »

Ich möchte in einem Form alle Elemente, die TSpeedbutton sind, von einer Verarbeitung ausnehmen.
Dabei bekomme ich einen Compilerfehler:
anpassung.pas(160,33) Error: Operator is not overloaded: not "Class Of TSpeedButton"

Code: Alles auswählen

 
procedure control_anpassen(tf:Tcontrol);
...
      if tf is not TSpeedbutton then
         begin
         tf.width:=b;
         tf.height:=h;
         end;
....
 

Die positive Abfrage dagegen erzeugt keinen Compilerfehler:

Code: Alles auswählen

      if tf is TSpeedbutton then
 

Wie muss dann die negative Abfrage korrekt lauten ?

malabarista
Beiträge: 321
Registriert: Sa 11. Jun 2016, 12:16
OS, Lazarus, FPC: Linux Mint 18.1 L1.6.2-1 FPC 3.0.0
CPU-Target: 64Bit
Wohnort: Konstanz

Re: TSpeedbutton

Beitrag von malabarista »

Habe ich inzwischen selbst gefunden:

Code: Alles auswählen

 
if not (tf is TSpeedbutton) then
 

Antworten