PDA

View Full Version : ه با زدن دو بار Enter یک edit رو خالی کرد


aks2download
چهارشنبه 07 اسفند 1387, 16:32 عصر
کسی میدونه چطو میشه با زدن دو بار Enter یک edit رو خالی کرد؟؟؟؟
لطفا هر کی بلده کدشو اینجا بنویسه.
مجتبی تاجیک
چهارشنبه 07 اسفند 1387, 23:15 عصر
تو رویداد KeyDown شئ Edit برنامت کد زیر رو بنویس و متغییر Check رو از نوع بایت و سراسری تعریف کن .



if GetASyncKeyState(VK_Return)<>0 then begin
Check:=Check+1;
end;
if Check=2 then begin
Edit1.Clear;
Check:=0;
end;
aks2download
جمعه 09 اسفند 1387, 15:12 عصر
تو رویداد KeyDown شئ Edit برنامت کد زیر رو بنویس و متغییر Check رو از نوع بایت و سراسری تعریف کن .



if GetASyncKeyState(VK_Return)<>0 then begin
Check:=Check+1;
end;
if Check=2 then begin
Edit1.Clear;
Check:=0;
end;


ممنون
میشه بگین چطور میشه این کد را برای یک کلید دیگه مثل space نوشت؟؟
مجتبی تاجیک
جمعه 09 اسفند 1387, 20:05 عصر
به جای VK_Return در کد ، نام کلید مورد نظرتون رو بنویسید .
Batman
شنبه 10 اسفند 1387, 06:04 صبح
ممنون
میشه بگین چطور میشه این کد را برای یک کلید دیگه مثل space نوشت؟؟
اشاره گره ماوس رو روي مثلا VK_Return نگه داريد و سپس كليد shift رو نگه داريد و بعد روي عبارت كليك كنيد تا ليست كامل كليدها رو ببينيد.
موفق باشيد
مجتبی تاجیک
شنبه 10 اسفند 1387, 06:30 صبح
اشاره گره ماوس رو روي مثلا VK_Return نگه داريد و سپس كليد shift رو نگه داريد و بعد روي عبارت كليك كنيد تا ليست كامل كليدها رو ببينيد.

جناب Batman اشتباه فرمودند باید کلید Ctrl رو برای این کار نگه داری .