---

Jeg har nogle memoer, hvori jeg ofte skal indtaste de samme ord.
Jeg vil gerne lave det sådan, at hvis jeg f.eks. taster CTRL-T, bliver en
ComboBox synlig med ord, der begynder med T og jeg kan så vælge et ord.
Alternativt kunne højre museknap bruges til at folde ComboBoxen ud med.

Jeg har kikket i hjælpen, men har stadig ingen ide om, hvordan jeg skal
fange de to 'knapper'.

Er der nogen, som kender en løsning?

Mvh Kurt

(Hvordan kan man forøvrigt programmæssigt indsætte enkeltord og ikke linier
i en memo? )

---

Kurt G skrev dette den 16-01-2007 18:04:
> Jeg har nogle memoer, hvori jeg ofte skal indtaste de samme ord.
> Jeg vil gerne lave det sådan, at hvis jeg f.eks. taster CTRL-T, bliver en
> ComboBox synlig med ord, der begynder med T og jeg kan så vælge et ord.
> Alternativt kunne højre museknap bruges til at folde ComboBoxen ud med.
>
> Jeg har kikket i hjælpen, men har stadig ingen ide om, hvordan jeg skal
> fange de to 'knapper'.
>

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=ord('T')) and (shift=[ssCtrl]) then
Combobox1.Visible := true;
end;
>
> (Hvordan kan man forøvrigt programmæssigt indsætte enkeltord og ikke linier
> i en memo? )
>

Hvis du kan "nøjes" med at sætte dem i enden af den sidste linje, kan du
bruge:

Memo1.Lines[memo1.Lines.Count-1] := Memo1.Lines[memo1.Lines.Count-1] +
Combobox1.Text;

--
Michael Haase

---

"Michael Haase" <micvans@netscape.invalid> skrev i en meddelelse
news:87d0d$45ad35f3$55187d34$5797@news.arrownet.dk...
> Kurt G skrev dette den 16-01-2007 18:04:
>> Jeg har nogle memoer, hvori jeg ofte skal indtaste de samme ord.
>> Jeg vil gerne lave det sådan, at hvis jeg f.eks. taster CTRL-T, bliver en
>> ComboBox synlig med ord, der begynder med T og jeg kan så vælge et ord.
>> Alternativt kunne højre museknap bruges til at folde ComboBoxen ud med.
>>
>> Jeg har kikket i hjælpen, men har stadig ingen ide om, hvordan jeg skal
>> fange de to 'knapper'.
>>
>
> procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if (key=ord('T')) and (shift=[ssCtrl]) then
> Combobox1.Visible := true;
> end;

Det ser da enkelt ud.

>>
>> (Hvordan kan man forøvrigt programmæssigt indsætte enkeltord og ikke
>> linier i en memo? )
>>
>
> Hvis du kan "nøjes" med at sætte dem i enden af den sidste linje, kan du
> bruge:
>
> Memo1.Lines[memo1.Lines.Count-1] := Memo1.Lines[memo1.Lines.Count-1] +
> Combobox1.Text;
>
> --
> Michael Haase

Jeg ville nu gerne kunne gøre det et vilkårligt sted, men de må jo kunne
gøres ved lidt strengmanipulation, blot man kender linienummeret.

Tak til Michael.

Kurt

---

>
> Jeg ville nu gerne kunne gøre det et vilkårligt sted, men de må jo kunne
> gøres ved lidt strengmanipulation, blot man kender linienummeret.
>
> Tak til Michael.

Du kan læse hele memo'ets indhold ved hjælp af .Text property'en.