Hallo,
ich erstelle eine Form innerhalb einer Komponente manuell. Ein Button, welchen ich darauf erstelle wird problemlos angezeit, aber weder ein Memo, noch ein StaticText oder Tlabel.
Hier der Quellcode:
Code:
unit ProgInfo;
interface
uses
Forms, Classes, StdCtrls;
type
TFormInfo = class(TForm)
private
btn_ok: TButton;
text_info : TLabel;
procedure btn_okClick(Sender: TObject);
public
constructor create(AOwner : TComponent);
procedure anzeigen;
end;
implementation
constructor TFormInfo.create(AOwner : TComponent);
begin
inherited CreateNew(AOwner);
btn_ok := TButton.Create(self); // self ist die 'eigene Adresse'
btn_ok.Left := 192;
btn_ok.Top := 471;
btn_ok.Width := 49;
btn_ok.caption := 'OK';
btn_ok.parent := self;
btn_ok.OnClick := btn_okClick; // Zuweisung der Ereignisbehandlung;
text_info := Tlabel.Create(self);
text_info.Top := 0;
text_info.Left := 0;
text_info.Height := 465;
text_info.Width := 449;
text_info.Visible := true;
text_info.Caption := 'Info!';
end;
procedure TFormInfo.btn_okClick(Sender: TObject);
begin
close;
end;
procedure TFormInfo.anzeigen;
begin
text_info.Caption := 'Es sind neue Einstellungen hinzugekommen:';
end;
end.
Ich möchte auf dieser Form einfach nur einen längeren Text (Info) anzeigen.
Da das ganze in einer Komponente statt findet, baue ich dazu kein
dfm.
Gruss
mc