aşagıdaki kod procedure içinde çalışmıyor ??

[forumsad]

Kod: Tümünü seç

TLabel(form_mk1oyunekran.FindComponent('Basliklabel'+IntToStr(i))).Top:=0;

arkadaşlar bu kod form içinde çalışıyor ama ayrı bir ünit içindeki procedure içinde çalışmıyor

nerde hata yapıyorum acaba Tlabel nesnesini unit'e tanıtmakmı gerekiyor acaba nasıl?

saygılarımla

[mkysoft]

çalışmıyor derken? biraz daha detay verin. Hata mesajı veriyorsa paylaşın.

[ikutluay]

bir form içinde tanımlanan alanlar değikenler objeler vs herşey sadece o formun çinde tanımlı methodlarca erişibilebilir.

harici unitte şunu yap örneğin

topfunc (var alabel:tlabel)
begin
alabel.top :=0;
end,;

kullandığın yerdede o kod yerine topfunc (label adı)...

kod sadece mantığı göstermek içindir. harici unit yazımında mantık budur.

[ikutluay]

ek olarak belirteyim... değişkenler ve nesneler konusunda "uses ile bağlanmadığı sürece"....

[forumsad]

Undeclared identifier 'TLabel' hatası veriyor


unit frame1konum;

interface



procedure BirOyuncuIcinKonumla(bOrani,genislik,eWidth,eHeight: integer);
implementation

uses mk1oyunekran, Math, Controls;

procedure BirOyuncuIcinKonumla(bOrani,genislik,eWidth,eHeight: integer);
var
i,ii:integer;
begin
for i:=1 to 12 do //panel başlık top ve height ayarları
begin
TLabel(form_mk1oyunekran.FindComponent('Basliklabel'+IntToStr(i))).Top:=0;
//TLabel(FindComponent('Basliklabel'+IntToStr(i))).Height:=form_mk1oyunekran.Panel_baslik.Height;
end;
end;

end.

[forumsad]

Kod: Tümünü seç

procedure  deneme;
var
i:integer;
begin

for i:=1 to 4 do //panel başlık top ve height ayarları
begin
//TLabel(Form1.FindComponent('Label'+IntToStr(i))).Top:=0;
Form1.Label1.Caption:='deneme';

end;
end;

aslında tek tek ulaşıyorum ama findcompenant ile hepsine işlem yapmak istediğimde olmuyor

[mkysoft]

kodunuzu parça parça yapıştırmışsınız galiba. eğer bu halde ise, uses kısmı eksik. Tlabel farklı unit içinde.

[forumsad]

interface


uses
SysUtils,StdCtrls;


ekledim düzeldi teşekkürler arkadaşlar