ورود

نسخه کامل مشاهده نسخه کامل : چطور در زمان اجرا لیبل بسازیم ؟؟


sobhan1990
03-12-2009, 20:49
سلام
من میخوام در حیا اجرای برنامه هر جا که نیاز شد یک لیبل ساخته بشه و دارای ویژگی های خاصی باشه.

فعلا سوالم اینه که چطور در حیا اجرای برنامه بتونیم یک لیبل رو بسازیم و روی فرم قرار بدیم؟
romixery
04-12-2009, 10:59
سلام و عرض خوش آمد به انجمن.
دوست عزيز، خواشاً‌ در پستهاي بعدي از سايز فونت استاندارد انجمن براي دادن پست استفاده كنيد.
در ضمن جستجو، كليد موفقيت در زمينه هاي مختلف مخصوصاً كامپيوتر هستش. اينجور سؤالها رو با يه سرچ معمولي مي تونيد حل كنيد.
ولي براي اينكه دلخور نشين:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدموفق باشين
sobhan1990
06-12-2009, 03:08
سلام
عیدتون مبارک
ممنون از بابت راهنمایی دوست عزیز
ولی وقتی کد بالا را وارد میکنم ارور میده و عکس ارور را در آدرس زیر قرار دادم. اگر ممکنه راهنمایی کنید.


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

راستش قبلا از زدن تاپیک سرچ کردم ولی چیزی پیدا نکردم.

ممنون میشم راهنمایی کنین.
M.Hashemi
06-12-2009, 20:43
با سلام
فكر كنم بايد var را قبل از begin بنويسيد و در اين كد نيازي به begin دوم نداريد.
با تشكر
romixery
07-12-2009, 09:50
اين مشكل، مشكل كد نيست. بهتره، يه بار ديگه نحوه برنامه نويسي در دلفي رو بررسي كنيد.
zidane
07-12-2009, 11:56
يک دکمه روي فرم بزاريد و اين کد رو توش بنويسيد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
ali135ugd
08-12-2009, 09:47
سلام
من انجام دادم ولی ارور داد اما وقتی label1 :tlabel; رو بردم بالا در قسمت var قراردادم مشکل حل شد
ولی من یه سوال دارم ... اگه بخواهیم تعداد زیادی لیبل اضافه کنیم و شماره لیبل رو از یک شمارنده بگیریم چکاری باید کرد و ضمنا محل قرار گرفتن لیبل ها رو چه طوری طی یک برنامه خاص خودش اتوماتیک انجام بده
مرد مباح
08-12-2009, 19:42
باید یک آرایه تعریف کنید. برای مثال :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
و طریقه استفاده :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
ali135ugd
09-12-2009, 08:34
خیلی باحالی مرد مباح
باور کن هرچند بعضی وقتا ضد حال میشی:10:
اما سوال اینجاست
1. شماره لیبل چطوری عوض میشه
2. جایی که نیبل میشینه چطور تعریف میشه
مرد مباح
09-12-2009, 18:10
1. شمارش رو که بالا گفتم. توی مثال
2. به کمک Top و Left هد کدوم از اونا میتونی این کارو بکنی.
ali135ugd
10-12-2009, 08:59
مقدار top و left میتونه به صورت یک متغیر باشه یایه چیزی شبیه این
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدیا مقدار لیبل ها چی؟ مثل
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیدممنون از اینکه حوصله میکنی و جوابمو میدی
romixery
10-12-2009, 09:52
البته، روشي كه مرد مباح عزيز گفتن بسيار خوب و درسته. ولي يك راه ديگه هم هست. مي تونيد از يك Container استفاده كنيد، و اون رو Parent كليدهايي كه تازيه مي سازيد كنيد. در نهايت مي تونيد به وسيله يه حلقه، به سادگي تعداد ليبلهاي اون رو شمارش كنيد:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیداين تابع تعداد TLabel هاي شما رو بر مي گردونه. در ضمن براي ايندكس گزاري كامپوننتهاي خودتون از خاصيت Tag حتماً استفاده كنيد چون براي همين كارا اين خاصيت رو در نظر گرفتن.
موفق باشين
ali135ugd
10-12-2009, 15:08
من برنامه را تا اینجا رسوندم
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیداما این ارور ها رو میده و به هیچ وجه هم درس نمیشه این ارورا چیند؟
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

راستی این روشی که شما گفتین خیلی سخته
function labelsearch(panel : TPanel):integer;
var
ind : integer;
begin
result := 0;
for ind := 0 to panel.componentCount - 1 do
begin
if (panel.component[ind] is TLabel) then
inc(result);
end;
end; اصلا از این اصطلاحات سر در نمیارم اگه میشه یه توضیح بدین این دستور ها چجوری کار میکنن
مرد مباح
11-12-2009, 15:33
دوست عزیز. اونا Warning هستند و Error محسوب نمیشن. منظورش هم اینه که i رو بایددر محدوده خود Procedure تعریف کنی و نه در سطح کلی برنامه. البته مشکلی هم نداره و برنامت اجرا میشه.