L lilofox Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-13 #3 在keydown里干 proceduredo Keydown(Sender: TObject; var Key: Word; Shift: TShiftState) begin if ssAlt in Shift then begin end; end;
在keydown里干 proceduredo Keydown(Sender: TObject; var Key: Word; Shift: TShiftState) begin if ssAlt in Shift then begin end; end;
Z zwfyazl Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-13 #5 最简单的是使用labeledit ,在label的caption中指定(&T) 就可以了~!
独 独帅 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-13 #6 设置与它关联的那个label的FocusControl属性就可以了 Label1.caption := '&L' Label1.FocusControl := Edit1;