PDA

View Full Version : مشکل در درج متن در ComboBox



Saeid59_m
پنج شنبه 21 شهریور 1392, 20:08 عصر
سلام
من می خوام متنی ثابت رو در محلی که مکان نما در Combobox قرار دارد Insert کنم ولی با دستور زیر برای Edit این کار رو انجام دادم اما در ComboBox کل متن قبل نیز حذف می شه و فقط متن جدید جایگزین می شه
به عبارت دیگه
می خوام عملیاتی که PasteFromClipBoard انجام می ده رو دستی انجام بدم .


Edit1.SelText := 'سلام'

لطفاً راهنمائی کنید
با تشکر

یوسف زالی
پنج شنبه 21 شهریور 1392, 22:34 عصر
سلام.
منظورت در آیتم هاش هست؟ یعنی یک آیتم اضافه کنه؟

persia_hrn
جمعه 22 شهریور 1392, 00:32 صبح
سلام یوسف جان فکر کنم منظورشان اینه که مثالا اگه توی Box نوشته ComboBox و نشانگر بین Combo و Box باشه کلمه "سلام" بیاد بینش جا بگیره و بشه BoxسلامCombo .

Saeid59_m
جمعه 22 شهریور 1392, 09:30 صبح
سلام یوسف جان فکر کنم منظورشان اینه که مثالا اگه توی Box نوشته ComboBox و نشانگر بین Combo و Box باشه کلمه "سلام" بیاد بینش جا بگیره و بشه BoxسلامCombo .

دقیقاً منظورم همین بود به آیتم ها کاری ندارم فقط منظورم توی Text هست

یوسف زالی
جمعه 22 شهریور 1392, 10:49 صبح
خب از خصوصیت SelText استفاده کنید.

Saeid59_m
جمعه 22 شهریور 1392, 15:44 عصر
خب از خصوصیت SelText استفاده کنید.

این خاصیت فقط برای Edit کار می کنه برای ComboBox کل متن رو پاک کردن و متن جدید را جایگزین می کنه !

یوسف زالی
جمعه 22 شهریور 1392, 15:55 عصر
معلومه خوب تست نکردید،


object ComboBox1: TComboBox
Left = 360
Top = 56
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'ComboBox1'
Items.Strings = (
'salam'
'this is a test'
'sample 2')
end



ComboBox1.SelStart := 3;
ComboBox1.SelText := '11111111';


اما اگر منظور شما انتخاب با ماوسه،
این پست می تونه کمکتون کنه:

http://www.delphipraxis.net/52542-caret-combobox.html