폼A의 Edit KeyDown이벤트를 폼B에서 호출 하려 합니다.
폼B의 Use절에는 폼A가 선언되어있습니다.
버튼 클릭은 잘 되는데... KeyDown은 안되네요... 쩝..
폼 A으 KeyDown 이벤트임당.
procedure TFm102.ac_srnoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var aebu, ingu, colr : string;
begin
if key = vk_return then begin
...
...
end;
end;
폼 B에서 폼 A의 이벤트를 호출하는 소스임당.
procedure TFm1021.DBGrid1DblClick(Sender: TObject);
begin
with SQLpm do begin
Fm102.ac_year.text := fieldbyname('m_year').asstring;
Fm102.ac_mnth.text := fieldbyname('m_mnth').asstring;
Fm102.ac_srno.text := fieldbyname('m_srno').asstring;
Fm102.ac_srno.SetFocus;
//Fm102.ac_srno.OnKeyDown(nil); --->안되네..(Sender도 안되..)
// 요기를 어쩌면 됩니까? 반드시 Enter 키값을 넘겨주어야 합니다.
end;
end;
그냥, 해당 이벤트 핸들러의 매개변수만 제대로 맞춰주면 될것 같습니다.
ac_srnoKeyDown(Self, VK_RETURN, []);
이런식으로 호출을 하시면 될것 같습니다.