combobox?

Jeg ved det ikke Mads-j men har du en Delphi reference (.hlp) som jeg kan få ???

  ComboBox1.Items.Add(\'Hest@HesteServer.dk\');

Eller

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Items.Add(RichEdit1.Text + \'<Mailto:navn@navn.dk>\');
end;

Sådan:


begin
  Combobox1.items.add(\'Ting nr. 1\');
  Combobox1.items.add(\'Ting nr. 2\');
  Combobox1.items.add(\'Ting nr. 3\');
  Combobox1.items.add(\'Ting nr. 4\');
  Combobox1.items.add(\'Ting nr. 5\');

  RichEdit1.text := RichEdit1.text + Combobox1.text;

end;

Jeg tror du må forklare lidt nærmere er det 5 punkter som ligger efter hinanden du skal have over i RichEdit1.Text ?

Hvis så kan du gøre følgende:


procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 5 do
  begin
    ComboBox1.ItemIndex := i-1;
    RichEdit1.Text := RichEdit1.Text + ComboBox1.Text;
  end;
end;

bruger skal kunne gøre følgende:

Trykke på combobox, og så vælge f.eks.
indsæt mail
indsæt http
indsæt etellerandet
osv

det brugeren trykker på skal sende koden til richedit, f.eks.
nr 1
indsæt mail= (på richedit) mailto:

fik i den?

altså denne her funktion skal indsætte en html kode på richedit formen

Ja men så opret de ting du skal kunne under ComboBoxen\'s Items

På Comboboxens OnClick Event indsætter du nedenstående :


procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  Case ComboBox1.ItemIndex of
    1 : RichEdit1.Text := \'<Mailto:navn@navn.dk>\';
    2 : RichEdit1.Text := \'Min HTML Kode \';
    3 : RichEdit1.Text := \'Det som skal gøres på pkt 3\';
    4 : RichEdit1.Text := \'Det som skal gøres på pkt 4\';
    5 : RichEdit1.Text := \'Det som skal gøres på pkt 5\';
  end; //Case ComboBox1.ItemIndex of
end;

Du skal forresten starte med 0 sådan her

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  Case ComboBox1.ItemIndex of
    0 : RichEdit1.Text := \'<Mailto:navn@navn.dk>\';
    1 : RichEdit1.Text := \'Min HTML Kode \';
    2 : RichEdit1.Text := \'Det som skal gøres på pkt 3\';
    3 : RichEdit1.Text := \'Det som skal gøres på pkt 4\';
    4 : RichEdit1.Text := \'Det som skal gøres på pkt 5\';
  end; //Case ComboBox1.ItemIndex of
end;

Morten_s Hvorfor f..... bruger du CASE-sætninger?
Det gør kun koden længere!

cyberlsn> Fordi det er det som skal til for at løse den givne opgave

Hmmm... Okay, det skal bare være en beskrivelse over det, som indsættes..
Så kan de gøres på følgende måde:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    a,b,c : string;

implementation

{$R *.DFM}



procedure TForm1.ComboBox1Change(Sender: TObject);
begin

  a := \'Indsæt Mail\';
  b := \'Indsæt HTML\';
  c := \'Indsæt et eller andet\';

  if combobox1.text = a then
  richedit1.text := richedit1.text + \'en_eller_anden_kode\';

  if combobox1.text = a then
  richedit1.text := richedit1.text + \'en_eller_anden_kode\';

  if combobox1.text = a then
  richedit1.text := richedit1.text + \'en_eller_anden_kode\';


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := \'Indsæt Mail\';
  b := \'Indsæt HTML\';
  c := \'Indsæt et eller andet\';

  Combobox1.items.add(a);
  Combobox1.items.add(b);
  Combobox1.items.add(c);
  end;

end.

Og hvad er kortest (tæl selv efter) og hvad ser mest overskueligt ud (kig selv efter)

if combobox1.text = a then
  richedit1.text := richedit1.text + \'en_eller_anden_kode\';
if combobox1.text = b then
  richedit1.text := richedit1.text + \'en_eller_anden_kode\';
if combobox1.text = c then
  richedit1.text := richedit1.text + \'en_eller_anden_kode\';
if combobox1.text = d then
  richedit1.text := richedit1.text + \'en_eller_anden_kode\';
if combobox1.text = e then
  richedit1.text := richedit1.text + \'en_eller_anden_kode\';


Case ComboBox1.ItemIndex of
    0 : RichEdit1.Text := \'<Mailto:navn@navn.dk>\';
    1 : RichEdit1.Text := \'Min HTML Kode \';
    2 : RichEdit1.Text := \'Det som skal gøres på pkt 3\';
    3 : RichEdit1.Text := \'Det som skal gøres på pkt 4\';
    4 : RichEdit1.Text := \'Det som skal gøres på pkt 5\';
  end; //Case ComboBox1.ItemIndex of

Nu er indholdet i Combobox1 kun en beskrivelse af det, som indsættes i RichEdit1.
Den tekst, som indsættes, vises nu ikke længere i Combobox1.

Du kunne nu også bare gøre det sådan:

If Combobox1.text = \'En Tekst\' then
RichEdit1.text := RichEdit1.text + \'En_eller_anden_kode\';

cyberlsn>  GAB :0

cyberlsn, prøver du at lære folk hvordan de belaster resourcer med deres programmering !?!?!

med en case sætning sammenligner du kun værdien én gang, hvorimod du skal igennem alle sammenligninger når du bruger IF. Med mindre selvfølgelig du bruge ELSE, men så er vi ude en kode der er lige børnehaven.

I øvrigt har morten\'s forslag den dtore fordel at du kan ændre på teksterne i comboboxen, uden at skulle ændre i koden :-)

ha\' det godt
hatecaps

morten>
denne her kode virker fint men hvis jeg trykker på første item i comboboksen, så indsætter den koden, og hvis jeg så trykker på nummer 2, indsætter den koden oven i, så den gamle bliver slettet..
hvordan laver jeg det om?

koden er her:Case ComboBox1.ItemIndex of
    0 : RichEdit1.Text := \'<Mailto:navn@navn.dk>\';
    1 : RichEdit1.Text := \'Min HTML Kode \';
    2 : RichEdit1.Text := \'Det som skal gøres på pkt 3\';
    3 : RichEdit1.Text := \'Det som skal gøres på pkt 4\';
    4 : RichEdit1.Text := \'Det som skal gøres på pkt 5\';
  end; //Case ComboBox1.ItemIndex of

Mads-j > Jeg vil foreslå dig, at bruge denne kode:

if Combobox1.text = \'Indsæt Mail\' then
RichEdit1.text := RichEdit1.text + \'<Mailto:navn@navn.dk>\';

Og for at lade brugeren selv bestemme, hvad der skal stå i Combobox1 via en TMemo, kan du bare gøre sådan her:
Combobox1.text := Combobox1.text + Memo1.text;

Sådan her:

Case ComboBox1.ItemIndex of
    0 : RichEdit1.Text := RichEdit1.Text + \'<Mailto:navn@navn.dk>\';
    1 : RichEdit1.Text := RichEdit1.Text + \'Min HTML Kode \';
    2 : RichEdit1.Text := RichEdit1.Text + \'Det som skal gøres på pkt 3\';
    3 : RichEdit1.Text := RichEdit1.Text + \'Det som skal gøres på pkt 4\';
    4 : RichEdit1.Text := RichEdit1.Text + \'Det som skal gøres på pkt 5\';
  end; //Case ComboBox1.ItemIndex of

morten får points,som tak for hans hjælp:-)
mange tak du

godt nytår:-)

mads/

Mads-j > Har jeg ikke også hjulpet? Mine eksempler virkede da også!

cyberlsn> jeg har ikke brugt dine, derfor ingen points..

brugte kun de koder morten kom med

Hmmm... Jeg ved godt det ikke kommer mig ved, men hvorfor prøvede du kun Mortens koder og ikke mine?