Printable View
سلام
دوستان همونطور كه ميدونيد با True كردن property tabwant در Memo متونيم تب رو در داخل خود ممو فعال كنيم و فاصله هايي رو ايجاد كنيم .
من واسه برنامه ام نياز دارم كه كاربر اين كار رو با فشار دادن دكمه F5 انجام بده و در اخر هر كدوم از اين تب ها يك شماره قرار بده(البته شماره ها به ترتيب زياد ميشن)
حالا چيكار كنم ؟
يه همچين چيزي
1- 2- 3- 4- 5- 6-
7- 8- 9- 10- ووو...
(البته بين اين اعداد فاصله 8 كاراكتري تب قرار داره)
ممنون و منتظرم
توی OnKeyPress بررسی کن و اگه Key=VK_F5 بود، توی خط فعلی ' ' (8تا Space) اضافه کن.
سلامنقل قول:
اينو يكم تغيير بديد كامل تر ميشه :
کد:procedure SimulateKeystroke(Key: byte; extra: DWORD);
begin
keybd_event(Key, extra, 0, 0);
keybd_event(Key, extra, KEYEVENTF_KEYUP, 0);
end;
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_F5 then
begin
memo1.SelText := inttostr(intCounter);
inc(intCounter);
SimulateKeystroke(VK_TAB,1);
end;
end;
سلام
نان فورث عزيز دستت درد نكنه زحمت كشيدي
اما يه مشكلي هنوز باقي هست اونم اينه كه من واسه هر كدوم از اين شماره ها كه به ترتيب ميان مي خوام كه كاربر بتونه يه عددي ديگه رو تايپ كنه اما وقتي دكمه اف 5 رو ميزنم تب بعد از عدد intcounter اعمال ميشه و من مي خواهم قبل از اون اعمال بشه يعني اول دو تا تب از نوشته هاي قبلي فاصله ببگيره و بعد عدد شمارنده جديد رو درج كنه و بعد از نوشتن اعداد توسط كاربر (يك شماره 5 رقمي كه از طرف كاربر وارد ميشه ) دوباره دو تا تب فاصله و شمارنده جديد درج بشه
ممنون و منتظرم
سلام
گفتم كه اگه يكم تغييرش بديد هموني ميشه كه ميخواستيد.
سلام
هر چي باهاش سروكله زدم نشد . اول عدد رو وارد ميكنه و بعد دو تا تب ميره جولو(به جاي اينكه اول دو تا تب بره جلو و بعد عدد رو وارد كنه
ممنون
سلامنقل قول:
کد:procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F5 then
Memo1.SelText := ' ' + inttostr(intCounter);
end;
سلام
اتفاقا اين روش هم به ذهنم رسيد اما مشكلي كه داره اينه كه فقط اون تعداد فاصله اي رو كه تعريف كردي با نوشته هاي قبلي لحاظ ميكنه اما من ميخواهم براي زيبا شدن شماره هاي اضافه شونده تنها در اون ستونهايي كه تب ممو در اون تعريف شده قرار بگيره . اگر براي يكي از نوشته ها كاربر چيز زيادي تايپ كنه طوري كه جاي دو تا تب رو مثلا اشغال كنه با زدن اف 5 عدد افزايشي بعدي باز هم در اون ستونهاي تب قرار خواهد گرفت با اين تفاوت كه دو تا نب جلوتر اما ترتيب و نظم ستونهاي تب بهم نخواهد خورد
اميدوارم تونسته باشم منظورم رو خوب گفته باشم
ممنون