Strg+Backspace, MemoFeld....

Nemesis1986 · Hält's aus hier Beiträge: 10

Hi allemiteinander!!

Ich soll für die Schule einen HTML in Delphi schreiben.

Ich hab leider drei Probleme:
1. Wie kann ich gewährleisten, das ich in einem Memofeld die Strg + Backspace Taste benutzen kann?!? Wenn ich Strg + Backspace drücke löscht er nicht die einzelnden Wörter, sondern mache in Zeichen wie im editor von MS. Das muss doch irgend wo im Objektinspektor möglich sein.

2. Ich möchte einen "Neu- Button" einbauen. Er soll jedoch nicht einfach das Memofeld löschen, sondern das HTML-grundgerüst wieder geben.
Bsp.: memo1.seltext:='<div align="left" + memo1.seltext + '</div>';
--> Hier schreibt er den Text links (in HTML). Ich möchte das in der ersten Line "<html>" steht, in der zweiten "<head>" usw.

3. Wie kann es einstellen das man in einem WebBrowser kopieren, einfügen... kann? Ich habe eine Farbtabelle in einen WebBrowser verlinkt, jedoch kann man den Hex-Code nicht kopieren und in das Memo- feld einfügen.

Danke fürs lesen!!!

GruppeCN · Beiträge: 322

2

Am einfachsten wäre es, wenn du einfach eine TStringList anlegst:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var list:TStringList;
begin
  list := TStringList.Create;
  list.Add('<html>');
  list.Add('<head>');
  list.Add('<title>');
  list.Add('</title>');
  list.Add('</head>');
  list.Add('<body bgcolor="#FFFFFF" text="#000000">');
  list.Add(' ');
  list.Add('</body>');
  list.Add('</html>');
  Memo1.Text := list;
  list.Free;
end;

_________________
Warum sind die Sachen, die du suchst, immer da, wo du zuletzt nachsiehst?
Weil du aufhörst zu suchen, wenn du sie gefunden hast.

Nemesis1986 · Hält's aus hier Beiträge: 10

Danke für die Hilfe, aber es klappt irgend wie nicht ganz:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var list:TStringList; 
begin 
  list := TStringList.Create; 
  list.Add('<html>'); 
  list.Add('<head>'); 
  list.Add('<title>'); 
  list.Add('</title>'); 
  list.Add('</head>'); 
  list.Add('<body bgcolor="#FFFFFF" text="#000000">'); 
  list.Add(' '); 
  list.Add('</body>'); 
  list.Add('</html>'); 
  Memo1.Text := list;  //<----
  list.Free; 
end;

Bei der markierten Zeile kommt die Fehlermeldung "Inkompatible Typen: 'Srting' und 'TStringList'"

Moderiert von UGrohne: Code-Tags eingefügt

toms · Beiträge: 1099 Erhaltene Danke: 2

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Button1Click(Sender: TObject);
var 
  list: TStringList;
begin
  list := TStringList.Create;
  try
    list.Add('<html>');
    list.Add('<head>');
    list.Add('<title>');
    list.Add('</title>');
    list.Add('</head>');
    list.Add('<body bgcolor="#FFFFFF" text="#000000">');
    list.Add(' ');
    list.Add('</body>');
    list.Add('</html>');
    Memo1.Text := list.Text;
  finally
    list.Free;
  end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme