Re: TransferData( )

Posted by Farhan Karimshah on January 23, 2010

In Reply to Re: TransferData( ) posted by webmaster Guido on January 23, 2010

ACTUALLY ITS NOT USED FOR DEBUGGING, THE CODE I SHOWED U WAS INCOMPLETE..

THE TRANSFERDATA(SENDER) CODE THAT HE USES ACTUALLY TAKES THE PRODUCT FROM DBGRID1 AND SHOWS IT IN DBGRID2 SO TO SPEAK..

IT AUTOMATICALLY DOES THIS WHEN THE "CODE" THAT IS TYPED IN EDIT1 MATCHES A "CODE" IN THE CODE FIELD OF DBGRID1.

DO YOU HAVE ANY IDEA? DO YOU THINK HE USED A COMPONENT OF SOME SORT TO DO THIS?

HERES SOME CODE:

1-

if EDIT1.text '' then begin
if TABLE1.fieldbyname(CODE).asstring=uppercase(EDIT1.text) then begin
TransferData(Sender);

HERES SOME MORE CODE:

2-

procedure TFORM1.DBGRID1DblClick(Sender: TObject);
begin
TransferData(Sender)
END;

3-

procedure TFORM1.EDIT1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

if ((key=vk_return) and (Shift = [ssctrl])) then begin
TransferData(Sender);
....ETC