Typecast spørgsmål

hvilken type variabel er Ctrl

Prøv dette
var
WCtrl:TWincontrol;
Begin
if Ctrl is TWinControl then begin
  WCtrl=Ctrl
  if WCtrl.ControlCount <= 0 then begin
    WCtrl.Enabled:=enable;
  end;
end;


Mvh. Simon

Jeg tror desværre ikke det er muligt...

Brug noget i retning af:

if Ctrl is TEdit then
  (Ctrl as TEdit).Enabled := Enable
else if Ctrl is TLabel then
  (Ctrl as TLabel).Enabled := Enable;

Med mindre du finder en GetClassTypeName-agtig funktion, så tror jeg ikke lige får så meget ud af det... Baren case-sætning ville gøre det bedre, men jeg har selv haft et lignende problem, og der fandt jeg ingen vej uden om den jeg lige har beskrevet... Dog siger jeg ikke at den ikke findes! ;)

tankred din forslag virker ikke. Det er det jeg gør!

hermandsen dit forslag kender jeg godt, men det er jo netop det jeg skriver jeg vil undgå da jeg i så fald altid ville skulle vedligeholde min funktion når der kommer nye fremmede kontroller på formen. Jeg tror du har ret, der findes nok ikke nogen mulighed for det.

Du må tænke på at alle tingene skal paintes forskelligt, så der er brug for enkelte procedure til hvert komponent!

Eller skal lave en eller anden shading over det hele, men hvordan du liiiiige gør det, det ved jeg ikke!

Selvfølgelig skal tingene håndteres forskelligt, det er netop derfor jeg ikke kan nøjes med base-class funktionens 'enable', jeg skal bruge den rigtige type og tilhørende enable funktion, men den er vist ikke tilgængelig på det niveau. Ohh well, jeg finder en anden løsning :)

Kan du ikke bare skrive (Ctrl as TComponent).Enable := ...?

>>klasker
Læs hvad kbb2 og jeg selv har skrevet! ;)

Det kan godt være at jeg er lidt sent på den men en base class med en abstract funktion, enable ville nok være løsningen.

Prøv at lave et program med dette som koden til Tform1 med et breakpoint på linje
33 og/eller 42

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TS=Class(TLabel)
    Public
    Procedure RePaint; override;
    End;
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    T:TS;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TS.RePaint;
Begin
    Caption:='Repainted';
    Inherited;
End;

procedure TForm1.FormClick(Sender: TObject);
var
T1:TLabel;
begin
    T1:=T;
    T1.Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    T:=TS.Create(self);
    T.Parent:=Self;
    T.Caption:='dtr';
end;

end.


Der vor jeg kalder functionen fra er en TLabel variabel men den kalder aligevel TS.Repaint og ikke som Vis du typecastede den TLabel.Repaint.

Mvh. Simon