Problemer med if then

UNDSKYLD JEG SKREV SÅ KORT FATTEDE FØR...

Er der nogle der kan fortælle mig hvad jeg gør forkert her...

Jeg har sat en knap til enabled := false

Så det jeg vil have mit program til at gøre er:

- at når jeg markere en af af "teksterne" i Listboxen skal knappen være enabled := true og kunne slette den markedet "tekst"


procedure TForm1.Button4Click(Sender: TObject);
var
Selected: Boolean;
begin
Selected := ListBox1.ItemIndex > - 1;
if Selected then
ListBox1.Items.Delete(ListBox1.ItemIndex) and button4.enabled:=true;

Jeg går ud fra at det er button4 du har disablet, og at eftersom din procedure hedder Button4Click hører proceduren til button4.onClick...
Hvis knappen er disablet bliver dens onClick procedure aldrig kaldt, og derfor bliver koden aldrig udført....

Håber det hjælper...

Hej Christian...

>Er der nogle der kan fortælle mig hvad jeg gør forkert her

Prøv sådan her i stedet:

<pre>
procedure TForm1.Button4Click(Sender: TObject);
begin
if ListBox1.ItemIndex > -1 then
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
button4.enabled:=true;
end;
end;
</pre>

--
Mvh.

Kasper (TSW)
Webmaster

Det virker ikke.......

<quote>Er der nogle der kan fortælle mig hvad jeg gør forkert her

procedure TForm1.Button4Click(Sender: TObject);
var
Selected: Boolean;
begin
Selected := ListBox1.ItemIndex > - 1;
if Selected then
ListBox1.Items.Delete(ListBox1.ItemIndex) and button4.enabled:=true;</quote>

Hej!!

Hvad er det egentlig du gerne vil lave?
Mht. Boolean så bemærk at de kun findes som true/false.
Her er et eksempel med en boolean variable.
<p>
<pre>
<b>procedure</b> TForm1.Button1Click(Sender: TObject);
<b>var</b>
Selected: Boolean;
<b>begin</b>
Selected:= false;

<b>if</b> button1.click <b>then</b>
<b>begin</b>
Selected:= true;
ShowMessage('HEJ HEJ');
<b>end;</b>
<b>end;</b>
</pre>
</p>

Venlig hilsen
MF


[Redigeret d. 02/03-02 09:02:46 af MF]

>Det virker ikke.......

Så var det måske en ide at fortælle <b>hvordan</b> det ikke virker? Kommer der fejl eller gør den bare ikke det du vil? Og hvad er det egentlig du vil? Det er lidt svært at hjælpe dig uden de informationer...

--
Mvh.

Kasper (TSW)
Webmaster