Bulunulan Formu Değişkene Aktarma

[badkursat]

Bir bileşen yazıyorum ve bileşeni koyduğum formun içindeki bileşenlerde gezmem gerekiyo. Örneğin bileşenin konulduğu formdaki editler içinde gezip bazı özelliklerini değiştireceğim. Bunun için property (TForm) olarak tanımlayıp aktarmayı denedim olmadı başka bir yöntem varmı acaba. Bileşenin konulduğu formu değişken olarak bir değere atama.

[SimaWB]

Yazdığınız bileşenin constructor methodunda Owner özelliğini kullanabilirsiniz. Tahminen yazıyorum:

Kod: Tümünü seç

constructor TYeniBilesen.Create(AOwner : TComponent );
var
  i: integer;
  c: TComponent;
begin
  inherited Create( AOwner ); 
  if AOwner is TForm then
    for i := 0 to TForm(AOwner).ComponentCount - 1 do
    begin
      c := TForm(AOwner).Components[i];
      if c is TEdit then
        TEdit(c).Text := 'texti değiştir';
    end;
end;

[freeman35]

viewtopic.php?f=19&t=33380

Yukarıdaki linki incelemeni tavsiye ederim.
Kolay gele