[EuroDotCom]

Hallo Leute,

ich habe mal eine kleine Frage zum Angegebenen Titel:
" Durch Button etwas einfügen ".

Unswar möchte ich einfach durch einem Button - Klick z.B. ein Memo1 auf die Form Zaubern.

Beispiel:
Auf der Form ist NICHTS außer ein Button. Klickt man nun auf dem Button drauf, so wird
ein Memo1 auf der Position "X=100; Y=200" erstellt.

Der Button heißt in diesem Fall "Erstellen". Wenn dieses Memo1 erstellt wurde, soll im Button
automatisch der Text umgeändert werden. z.B. zu "Löschen".
Klickt man nun erneut auf dem Button ( jetzt "Löschen"), dann ändert sich der Text im
Button wieder in "Erstellen" und das Memo1 auf der Position "X=100; Y=200" wird gelöscht.



Arbeitsmittel:
Win7
RAD Studio XE3
(FireMonkey-Desktop-Anwendung - C++ Builder

Danke im Vorraus.

[Your_Conscience]

Was du suchst sind dynamische Objekte.

So könnte dein Code beispielsweise aussehen:

//---------------------------------------------------------------------------

#include <fmx.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;
TMemo *memo = new TMemo(Form1);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	memo->Parent = Form1;
	memo->Visible = false;
	memo->Position->X = 10;
	memo->Position->Y = 10;
	memo->Width = 200;
	memo->Height = 140;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

	if (Button1->Text == "Erstellen") {
		Button1->Text = "Löschen";
		memo->Visible = true;
	} else 	if (Button1->Text == "Löschen") {
		Button1->Text = "Erstellen";
		memo->Visible = false;
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
	delete(memo);
}
//---------------------------------------------------------------------------

Wenn der Kompiler anzeigt, dass er "TMemo" nicht kennt, einfach mal eines aus der Toolbox auf die Form ziehen, kompilieren und das Memo wieder löschen.