HexEditor

[DeddyH]

Ich hab mal schnell ein Beispiel mit einem dynamisch erzeugten Memo erstellt. Ich hoffe, das macht das Prinzip etwas klarer. Zur Designtime handelt es sich einfach nur um ein leeres Formular.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls{für TMemo};

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    FDynamicMemo: TMemo;
    procedure OnMemoClick(Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Erzeugen des Memos
  FDynamicMemo := TMemo.Create(nil);
  FDynamicMemo.Parent := self;
  //Setzen einiger Properties
  FDynamicMemo.Height := 80;
  FDynamicMemo.Align := alBottom;
  FDynamicMemo.Lines.Clear;
  FDynamicMemo.Lines.Add('Ich bin hier unten angewurzelt,');
  FDynamicMemo.Lines.Add('dass niemand aus dem Fenster purzelt.');
  //Zuweisung eines Event-Handlers
  FDynamicMemo.OnClick := OnMemoClick;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //Freigeben des Memos
  FDynamicMemo.Free;
end;

procedure TForm1.OnMemoClick(Sender: TObject);
begin
  if Sender is TMemo then
    ShowMessage(TMemo(Sender).Lines.Text);
end;

end.