TurboPL Referenz

MaskenelementSuchen

Syntax

MaskenelementSuchen(Maskenelement: String): Control
FindControl(Maskelement: String): Control

Kategorie

Oberflächenfunktion

Erklärung

MaskenelementSuchen sucht ein Maskenelement in einem geöffneten Datenfenster. Die Funktion liefert eine Referenz auf ein Objekt vom Typ Control, bzw. den Wert Null, wenn kein Element mit dem übergebenen Namen vorhanden ist.

Mit dem Kommando as kann die Referenz auf einen speziellen Control-Typ wir z.B. Edit umgewandelt (typecast) werden. Dazu ist es unbedingt erforderlich, dass die strenge Typprüfung im Modul eingeschaltet ist (SV 1).

Beispiel

Diese Prozedur sucht im aktuellen Datenfenster nach dem Maskenelement Spalte1Edit und schreibt eine Zeichenkette in das Editierfeld.

procedure TextToEdit;
vardef EditCtrl: Edit;
EditCtrl := FindControl("Spalte1Edit") as Edit;
if Assigned(EditCtrl)
   EditCtrl.Text := 'Das ist die Vorgabe';
else
   Message('Spalte1Edit gibt es nicht');
end;
endproc;

Siehe auch

Programmieren mit Objekten