acces violation

Kan du ikke bare sætte knappens Enabled værdi til False i Object Inspector... og så i formen\'s OnCreate Event sætte den til True igen (nederst)?

jo....det kan jeg, men der er mange andre knapper og + menuen og popup.Så det vil blive mange disabled/enabled,
det vil ligne en hovsa løsning.
Og det vil givevis forsinke programmet.
Jeg var ude efter en lidt smartere måde at gøre det på.

Jeg tror du skal have vildt mange knapper før du kan mærke at det vil forsinke programmet, men ok det bestemmer du jo selv..
For at vi skal kunne hjælpe dig med en anden løsning bliver du i hvertfald nødt til at komme med flere information på hvorfor det sker.. og hvad der sker

har prøvet dit forslag
samme problem.
problemet ligger i at når man trykker på en knap
under indlæsning kan den ikke udføre handlinge
før programmet er indlæst,derved får man en \"aceess violation\"
er der en måde at uddele resourcer til at håndtere
en event før programmet er indlæst.

kan man så ikke vente med at sætte OnClick eventen til formens OnCreate? prøv det

hmm kan du ikke paste den kode du har i knappens OnClick event?

den onclick event for knappen åbner en form med en dbgrid
Oversigt.show;

Du kan sætte menupunkter og knapper disablede og enablede med ganske få liniers kode.
Så en løsning ville være at sætte knapper/menupunkter disablede i designtime

på formens OnCreate skriver du derefter:

for i := componentCount -1 do
begin
  if components[i] is TButton then
    TButton(components[i]).enabled := true
  else
  if components[i] is TMenuItem then
  TMenuItem(components[i]).enabled := true;
end;

Hilsen
Jens

\"jensfudge\"
får en fejlmelidng ved brug af dit eksempel
undeclared identifier(i)
\'To\'ekspected but \'do\' found
exspression expected but \'begin\' found

du skal lige ændre den første linje til:

for i := 1 to componentCount -1 do

også så skal du lige oprette variablen i som skal være en integer

altså

var
I: integer;

1 fejlmelding:
expression expected but \'begin\' found

gir samme fejlmelding

Nåå, Sorry Jeg havde lavet en bøf..

procedure TForm1.Create (sender TObject);
var
i : integer;

begin
for i := 1 to componentCount -1 do
begin
  if components[i] is TButton then
    TButton(components[i]).enabled := true
  else
  if components[i] is TMenuItem then
  TMenuItem(components[i]).enabled := true;
end;

end;

Jeg troede at du godt vidste hvor du oprettede lokale variabler osv... Jeg vil kraftigt anbefale dig at købe en lærebog om delphi, eller programmering i al almindelighed.
Jeg kan anbefale \"Teach yourself .... in 21 days\" serien, der er sikker en hvor .... skal udskiftes med Delphi