Bei sehr vielen Formularen je eine Eigenschaft ändern

[litotes]

Hallo,

ich habe ein größeres Projekt (Delphi 7 Pro, Win XP)und mir ist es schon öfter passiert,
dass ich eine Eigenschaft bei allen Formularen im nachhinein (!) ändern will, z. b.
bei allen den Scrollbalken weg, die Position ändern, Farbe, usw. usw.

Gibt es eine Möglichkeit, das bei allen oder zumindest mehrern Formularen
gleichzeitig zu machen, so dass ich nicht immer jedes einzelne der X Formulare
öffnen, ändern, schließen muss, was ewig lange dauert?

Ich will aus Performancegründen (lasse mich aber belehren) auch keine Funktion,
die das zur Laufzeit macht, sondern das soll schon in den Eigenschaften (Objektinspektor)
stehen...

Da muss es doch eine Möglichkeit geben?

Danke für Hinweise!

litotes

[Bernhard Geyer]

Stell all deine Formulare auf eine eigene TMyForm-Klasse um so das du in Zukunft hier alles Zentral erledigen kannst. Damit hättest du nur einmal (bei der Umstellung) das Problem alle Formulare zu öffnen.

[s-off]

Hallo,

mir ist nicht bekannt, dass es eine derartige Funktion gibt.

Search und Replace über die DFMs fällt mir dazu ein

Wäre doch mal ein nettes kleines Projekt - vielleicht sogar als Expert in die IDE einzubinden.

Edit:

Zitat von Bernhard Geyer:

Stell all deine Formulare auf eine eigene TMyForm-Klasse um so das du in Zukunft hier alles Zentral erledigen kannst. Damit hättest du nur einmal (bei der Umstellung) das Problem alle Formulare zu öffnen.

Das wäre dann aber je Projekt eine eigene TMyForm-Klasse.

[semo]

um Bernhard Geyer näher zu erläutern:
du erstellst dir deine eigene klasse welche du von TForm ableitest.
deine forms instanzierst du dann von dieser klasse.
änderungen machst du dann an deiner vorlage, welche in den ableitungen übernommen werden.

Objektorientiert halt

[litotes]

Hallo,

danke für die schnelle Antwort!

Bin leider in OOP nicht sehr bewandert - wie müsste ich das genau machen?

Kann ich das auch jetzt noch umstellen?

litotes


PS: Search and Replace ist keine Lösung - Scrollbalken und andere Eigenschaften tauchen ja nicht im Sourcecode auf...

[semo]

Zitat:

PS: Search and Replace ist keine Lösung - Scrollbalken und andere Eigenschaften tauchen ja nicht im Sourcecode auf...

klar. in dem dfm dateien!

[s-off]

Zitat von litotes:

Bin leider in OOP nicht sehr bewandert - wie müsste ich das genau machen?

Dann solltest Du Dich darum vlt als erstes kümmern ;o)

Zitat:

Kann ich das auch jetzt noch umstellen?

Mit besagter OOP-Methode - klar.

Zitat:

PS: Search and Replace ist keine Lösung - Scrollbalken und andere Eigenschaften tauchen ja nicht im Sourcecode auf...

Search & Replace über die DFM; nicht über die PAS - ein Beispiel

Delphi-Quellcode:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 286
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 176
    Top = 144
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssBoth <-- HIER SCROLLBARS!
    TabOrder = 0
  end
end

[litotes]

Hallo,

danke für die viele Hilfe!

Das mit Search and Replace in .dfm ist klasse!

Und auch danke für die Idee mit der Ableitung von der eigenen Formklasse.



litotes

[s-off]

Zitat von litotes:

Hallo,
Das mit Search and Replace in .dfm ist klasse!

Aber vorsichtig sein!
In der DFM stehen sämtliche Objekte, die sich auf Deiner Form befinden.
Hast Du beispielsweise ein Memo und ein RichEdit auf Deiner Form, und möchtest nur für das Memo die Scrollbars ausschalten, dann könnte ein einfaches

suche nach Srollbars = ssIrgendwas

und ersetze dieses durch ssNone

fatal sein ;o)

Deswegen sagte ich ja, könnte man daraus schon ein kleines Projekt machen.

Die Struktur einer DFM-Datei sieht in einem TreeView bestimmt schick aus

[IBExpert]

so ein tool gibt es unter dem namen greplace hier
http://www.obsof.com/public/GReplace.zip
kann man auch ganz gut nutzen um komplette Komponenten gegen
neue auszutauschen, benutzen wir relativ oft um zum Beispiel
die BDE rauszuschmeissen.