Entwickler-Ecke

Internet / Netzwerk - Strg+Backspace, MemoFeld....


Nemesis1986 - Fr 02.05.03 11:18
Titel: Strg+Backspace, MemoFeld....
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 - Fr 02.05.03 17:23
2:) Am einfachsten wäre es, wenn du einfach eine TStringList anlegst:

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;


Nemesis1986 - Sa 03.05.03 11:28
Titel: Danek für die Hilfe...
Danke für die Hilfe, aber es klappt irgend wie nicht ganz:


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 user profile iconUGrohne: Code-Tags eingefügt


toms - Sa 03.05.03 11:33

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;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!