Projektweit form suchen

[Nimoee]

Hallo,
wie kann man Projektweit nach einer form suchen?
with suchmethode do
........

nimoee

[Phoenix]

Also ich verstehe nicht 100% was Du meinst.

Prinzipiell gibt es da zwei Möglichkeiten:

1.) Du bist noch am Coden:
Delphi-Suche (Bearbeiten / Suche), dort die tab-page "in Dateien Suchen" auswählen, als Suchstring: "TFormKlassenName = Class(" angeben und los gehts :)

2.) Runtime:
so gut wie gar nicht. Du müsstest über die RTTI (RunTime Type Information) über alle globalen Variablen iterieren und bei jeder globalen Variablen den Typ (Klassennamen) abfragen. Geht freilich nur, wenn Du Deine Forms auch als globale Variable deklariert hast.

Ist aber recht aufwendig.
Eine recht einfache Möglichkeit wäre (so mach ich das bei grösseren Projekten): Du erstellst ein var Array of var als globale variable.
Nach der Deklaration eiones Forms gehst Du im Implementation-Teil her, und trägst das Form in das Array ein. So brauchst Du hinterher nur noch in dem Array zu suchen und hast alle Deine Forms dort registriert.

[Nimoee]

hallo,

ich hab das problem, dass ich von einem Listfeld aus jede Menge editfelder, die in verschiedenen Forms liegen Focusieren muss.
Also erst Fenster auf, dann Focus auf das Edit-feld.

nimoee

[Christian Seehase]

Moin Nimoee,

probier's doch mal mit Application.FindComponent.

Beispiel:

Delphi-Quellcode:

var
  frmWork : TForm;

begin
  frmWork := Application.FindComponent('Form2') as TForm;
  if frmWork <> nil then frmWork.Show;
end;

[Nimoee]

hallo,
das hat mir gefehlt, habs immer mit findclass probiert.
Ich probiers.
Danke
nimoee

[Nimoee]

hallo,

das funktioniert prima.

nimoee

[Nimoee]

hallo,

jetzt barauch ich das Ganze noch um nach einem edt-feld zu suchen..

nimoee

[CalganX]

Dann nimmst du auch FindComponent. Nur dann auf einem Formular.

Delphi-Quellcode:

DeinForm.FindComponent('edtUsername');

Chris

PS: Schau dir auch mal die Hilfe von FindComponent an...

[Nimoee]

Hallo,

das ist nicht ganz so trivial, wie das aussieht. Ich jabe vorher die Form schon mit findcomponent gesucht.
Ich müsste also das 1. Ergenis für die Suche nutzen!

nimoee

[CalganX]

Hi,
das ist nicht viel schwieriger. Du speicherst das Formular aus der ersten Suche in eine Variable und suchst dann. So schwer ist das wirklich nicht. Siehe auch Hilfe.

Chris

[Nimoee]

Hallo,
was ist hier falsch? ( ich steh auf der Leitung ). Die Syntax an sich ist klar.

Delphi-Quellcode:

frmWork1:= Application.FindComponent(Lb1.items[lb1.itemindex]) as Tform;
  With frmwork1 do
       Begin
          frmWork := FindComponent(Lb2.items[n]) as Tedit;
       end;

Fehlermeldung: Ungültige Typumwandlung, bei der with Zeile.
frmwork1:tform
frmwork:tedit

nimoee

[edit=Luckie] Mfg, Luckie[/edit]

[CalganX]

Hi,
bitte formatiere deine Sourcecodestücke mit den [ delphi]-Tags.

Delphi-Quellcode:

frmWork1:= Application.FindComponent(Lb1.items[lb1.itemindex]) as Tform;
// With frmwork1 do <-- weg
// Begin
edtWork := frmWork1.FindComponent(Lb2.items[n]) as Tedit;
// end;

Chris

[Nimoee]

hallo,
ja, hab ich übersehen. Aber gleiches Problem.
Geht so nicht.
nimoee

[Christian Seehase]

Moin Nimoee,

also bei mir wird Dein Code akzeptiert (auch mit der With Konstruktion).
Der Fehler muss woanders liegen.
(die LBs hab' ich als TListBox deklariert, n als integer)

[Nimoee]

hallo Christian,

sobald ich in die Zeile mit Tedit einen string zum suchen einfüge gehts!

nimoee

[Christian Seehase]

Moin Nimoee,

:shock:

ich hab's 1:1 übernommen, ebenfalls mit D5, und bei mir geht's.

[Nimoee]

Ääähm, hallo Leute,

ich wags garnicht zu sagen! War mein Fehler. Das Edit Feld war nicht vom Typ Edit sondern tmaskedit. Jetzt funktioniert das Ganze.

Ich dank euch für die schnelle Hilfe.
nimoee