AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Verständnis-Frage TButtonControl

Ein Thema von PinkFloydFan · begonnen am 10. Apr 2011 · letzter Beitrag vom 10. Apr 2011
 
Benutzerbild von PinkFloydFan
PinkFloydFan

Registriert seit: 4. Dez 2007
Ort: Straubing
54 Beiträge
 
Delphi 2010 Architect
 
#4

AW: Verständnis-Frage TButtonControl

  Alt 10. Apr 2011, 13:38
hat sich erledigt.. Danke trotzdem!!

habs so gelöst, dass ich nen neuen Typ deklariert habe:
Delphi-Quellcode:
....
type TMyButtonControl = class(TButtonControl);
...
...
...
function WriteIni(IniFile:String;Section:String;Key:String;TheComp:TComponent):Boolean;
Var FIni:TInifile;
begin
  result:=false;
  Try
    FIni := TIniFile.Create(IniFile+'.Ini');
    If TheComp is TCustomEdit then
    begin
      FIni.WriteString(Section,Key,(TheComp as TCustomEdit).Text);
      result:=True;
    end;
    If TheComp is TMyButtonControl then
    begin
      FIni.WriteBool(Section,Key,(TheComp as TMyButtonControl).Checked);
      result:=True;
    end;
    FIni.Free;
  except
    result:=false;
  end;
end;
nu funktionierts...
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz