PDA

View Full Version : بدست آوردن نام يك شي به وسيله Sender


دنیای دلفی
شنبه 05 مرداد 1387, 15:15 عصر
فرض كنيد كه يك DBEdit1 روي فرم قرار دارد و يك كليد . مي خواهم و قتي روي كليد كليك كردم با استفاده از يك Showmessage كه درون كليد است اعلام كند نام شي ء DBEDIT1 است . يا هر شي ديگري كه نشانگر داخلش بود.
Vahid_moghaddam
شنبه 05 مرداد 1387, 15:48 عصر
(Sender as TControl).Name
دنیای دلفی
شنبه 05 مرداد 1387, 16:45 عصر
مشكل اينجا است كه با اين روش نام شي را كه روش هستيم مي دهد من مي خواهم مثلا در رويداد OnKeyDown فورم مثلا اگر اينتر را زدم و نشانگر در DBEdit1 بود نام آن ظاهر شود .
Hsimple11
شنبه 05 مرداد 1387, 17:13 عصر
من مي خواهم مثلا در رويداد OnKeyDown فورم مثلا اگر اينتر را زدم و نشانگر در DBEdit1 بود نام آن ظاهر شود .

منظورتان کنترلی است که Focus دارد؟


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then
ShowMessage(ActiveControl.Name);
end;


خاصیت KeyPreview فرم را هم بایستی True کنید.