Vamos con el editor, lo he hecho muy simple y aunque ahora no lo entendáis en cuanto ponga el modulo de usuarios lo entenderéis bien
Y este es su código, aunque normalmente pondré un enlace para poner los módulos completo, este lo hago al ser pequeño
Código Delphi
[-]unit UEditor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Keyboard, StdCtrls, ExtCtrls;
type
TFeditor = class(TForm)
Panel1: TPanel;
Memo1: TMemo;
TouchKeyboard1: TTouchKeyboard;
SBRecarga: TSpeedButton;
SBBlanco: TSpeedButton;
SBCancelar: TSpeedButton;
SBOk: TSpeedButton;
procedure SBBlancoClick(Sender: TObject);
procedure SBRecargaClick(Sender: TObject);
procedure SBOkClick(Sender: TObject);
procedure SBCancelarClick(Sender: TObject);
private
public
end;
var
Feditor: TFeditor;
implementation
{$R *.dfm}
uses UDM;
procedure TFeditor.SBBlancoClick(Sender: TObject);
begin
Memo1.Lines.Clear;
end;
procedure TFeditor.SBCancelarClick(Sender: TObject);
begin
Close;
end;
procedure TFeditor.SBOkClick(Sender: TObject);
begin
VarSMEMO:=Memo1.Lines.Text;
Close;
end;
procedure TFeditor.SBRecargaClick(Sender: TObject);
begin
Memo1.Lines.Text:=VarSMEMO;
end;
end.