Button in DBRichEdit [بایگانی]

FirstLine

پنج شنبه 28 آبان 1383, 21:08 عصر

با سلام
آیا میتوان در زمان اجرا یک یا چند دکمه در DBRichEdit قرار داد و برای هر دکمه یک کد (ID) تعریف کرد و پس از ذخیره و در هنگام نمایش بصورت عادی با زدن این دکمه مقدار کد این دکمه در Caption یک Lable نمایش داده شود؟
با تشکر

vcldeveloper

جمعه 29 آبان 1383, 03:53 صبح

بله. در هنگام درست کردن دکمه مورد نظر خصوصیت Parent مربوط به دکمه را برابر با نام شی TDBRichEdit خود قرار بدید.
برای ID هم می تونید از خصوصیت Tag مربوط به هر کامپوننتی (در اینجا TButton) استفاده کنید. بعد از ساخت هر دکمه یه عدد به Tag اون نسبت بدید و از اون عدد بعنوان ID استفاده کنید.
برای ساخت Event Handler برای Click روی یک کامپوننت و نسبت دادن اون به کامپوننت باید ابتدا یه تابع از نوع TNotifyEvent درست کنید (یه تابع مثل تابعی که دلفی بصورت اتوماتیک برای OnClick درست میکنه:

procedure ButtonsClick(Sender: TObject);

بعد کد خودتون رو در این تابع قرار بدید. (در مثال بالا ->
MyButton.Caption := IntToStr(MyButton.Tag);

حالا می تونید بعد از ساخت دکمه در زمان run time از این کد برای نسبت دادن event handler خود به دکمه استفاده کنید:

MyButton.OnClick := ButtonsClick;