Topic: Would someone tell my what's wrong with this script?
I hope you all don't mind me making so many posts. I do apologize. So, I have a script that I think is acting odd. As a disclaimer, I haven't used Pascal since I was in college (a long time ago). Here's the script;
procedure form1_Edit1_OnChange (Sender: string);
begin
if Pos('@', Form1.Edit1.Text)>0 then
begin
Form1.Edit1.Cursor := crHandPoint;
Form1.Edit1.Font.Style:=fsUnderline;
Form1.Edit1.Font.Color := clHotLight;
end
else
begin
Form1.Edit1.Cursor := crDefault;
Form1.Edit1.Font.Style:=0;
Form1.Edit1.Font.Color := clDefault;
end;
end;
procedure Form1_Edit1_OnDoubleClick (Sender: string);
begin
OpenFile('mailto:'+Form1.Edit1.Text);
end;
begin
frmMain.mniAbout.Visible := False;
frmMain.mniOptions.Visible := False;
// frmMain.mniFile.Visible := False;
end.
procedure form1_Edit1_OnDoubleClick (Sender: string);
begin
OpenFile('mailto:'+Form1.Edit1.Text);
end;
end.The section that I'm curious about is the fromMain.mni(file, options, about). When I use // to comment out some code, for me it's working in reverse. If I comment out the File Menu, the File Menu is the only thing that shows up. And if I comment out the Options line, then it shows up.
I must be doing something wrong somewhere. Maybe someone can point out where I messing up...
thanks
Nothing inspires forgiveness quite like revenge.
Scott Adams
Scott Adams
