source: trunk/Forms/FormGoToAddress.pas

Last change on this file was 5, checked in by chronos, 3 weeks ago
  • Added: Some I/O ports handling.
  • Added: Messages form for capturing error messages.
  • Added: Go to address action.
  • Added: Allow to view all used memory areas in Memory window.
  • Added: Allow to reset CPU execution.
  • Modified: Improved memory mapping for MZ-700 and MZ-800 modes.
  • Fixed: Focusing currently executed instruction position.
  • Fixed: Wrong order or 8-bit registers in 16-bit pair.
File size: 525 bytes
Line 
1unit FormGoToAddress;
2
3interface
4
5uses
6 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
7
8type
9
10 { TFormGoToAddress }
11
12 TFormGoToAddress = class(TForm)
13 ButtonOk: TButton;
14 ButtonCancel: TButton;
15 EditAddress: TEdit;
16 Label1: TLabel;
17 procedure EditAddressKeyPress(Sender: TObject; var Key: char);
18 end;
19
20
21implementation
22
23{$R *.lfm}
24
25{ TFormGoToAddress }
26
27procedure TFormGoToAddress.EditAddressKeyPress(Sender: TObject; var Key: char);
28begin
29 if Key = #13 then ButtonOk.Click;
30end;
31
32end.
33
Note: See TracBrowser for help on using the repository browser.