我有这个代码,用iframe中的javascript导航URL,但它不起作用.为什么？
例如,我想site.com在单击link1时导航到.
<script language="javascript">
function nav()
{
window.navigate('http://site.com',target="DBox");
}
</script>
<a href="javascript:nav();">link1</a>
<iframe name="DBox" src="http://example" frameborder="0" style="width:100%;height:100%"></iframe>
我想在单击按钮时显示弹出菜单,但此过程在Delphi XE中有错误.
procedure ShowPopupMenuEx(var mb1:TMouseButton;var X:integer;var Y:integer;var pPopUP:TPopupMenu);
var
popupPoint : TPoint;
begin
if (mb1 = mbLeft) then begin
popupPoint.X := x ;
popupPoint.Y := y ;
popupPoint := ClientToScreen(popupPoint); //Error Here
pPopUP.Popup(popupPoint.X, popupPoint.Y) ;
end;
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
ShowPopupMenuEx(button,Button1.Left,Button1.Top,PopupMenu1); //Error Here
end;
当点击按钮显示此错误:
[DCC错误] Form1.pas(205):E2010不兼容类型:'HWND'和'TPoint'
[DCC错误] Form1.pas(398):E2197常量对象不能作为var参数传递
[DCC错误] Form1.pas( 398):E2197常量对象不能作为var参数传递
当点击按钮时,有没有更好的方式来显示弹出菜单？
当我打开Delphi XE获取此消息时,我必须关闭IDE.
信息 :
危险:堆栈溢出 - 保存您的工作并重新启动Delphi XE
我卸载Delphi和cpp XE并重新安装它们,但已经收到此消息.
为什么？
我们如何在Float数字的范围内生成随机数(在delphi xe3中)？
例如,随机化数字之间[0.10 to 0.90].我需要给出如下结果:
[ 0.20 , 0.32 , 0.10 , 0.50 ]
谢谢你的解决方案
在我的项目中我有两个表单(form1,form2),form1是配置表单.
我想显示Form1,当我们单击Button1然后显示Form2和免费(Release)Form1.我怎么能这样做？
我用这个代码.但是这个项目会自动启动然后自动退出.朋友说,因为应用程序消息循环永远不会启动,应用程序终止,因为主窗体不存在.我怎么能解决这个问题？
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Release;
end;
///
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Form1:= TForm1.Create(Application);
Application.Run;
end.
我想在创建Tform2时向用户显示一条消息.我使用此代码,但效果不佳.
procedure TForm1.Button1Click(Sender: TObject);
var
a:TForm2;
begin
if a=nil then
begin
a := TForm2.Create(Self);
a.Show;
end
else
begin
showmessage('TForm2 is created');
end;
end;
如何在Delphi XE中将背景图像设置为TListview？
我想创建一个像Windows资源管理器的应用程序.
我的项目中有2个Form(Form1和Form2),Form1是自动创建表单,但Form2是可用表单.我怎么能创建Form2并卸载Form1？
我在此代码中收到"访问验证"错误.
这是Form1代码:
1. uses Unit2;
//*********
2. procedure TForm1.FormCreate(Sender: TObject);
3. var a:TForm2;
4. begin
5. a := TForm2.Create(self);
6. a.Show;
7. self.free; // Or self.destory;
8. end;
谢谢.
我将"Serg"代码修改为:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Release; …我有这个程序:
procedure TForm1.Button1Click(Sender: TObject);
var
a:TForm2;
begin
a := TForm2.Create(Self);
a.Parent := ScrollBox1;
a.Align := alClient;
a.Show;
a.SetFocus;
end;
我将上面的代码更改为此,但我收到错误,为什么？我必须将此代码更改为？
procedure TForm1.MakeAform(aForm:Tform;Cmp:TComponent;Parent1:TWinControl;Align1:TAlign);
var
a:aForm; // Error Here
begin
a := aForm.Create(Cmp);
a.Parent := Parent1;
a.Align := Align1;
a.Show;
a.SetFocus;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MakeAform(Tform2,Self,Panel1,alClient);
end;
我有一个 Select ，里面有一些 Option 。如何font-weight: bold只为那些已启用的选项做准备？
这是示例代码：
<select>
<optgroup label="group1">
<option value="2016" disabled>2016</option>
<option value="2017" disabled>2017</option>
<option value="2018" selected="selected">2018</option>
<option value="2019">2019</option>
</optgroup>
<optgroup label="group2">
<option value="2020" disabled>2020</option>
<option value="2021">2021</option>
</optgroup>
</select>2016, 2017, 2020 为正常字体，多为灰色（或特殊色码），2018,2019,2021 为粗体。怎么做？
注意：我不会为每个选项添加内联代码。
谢谢。
我有一个DB(用Delphi编程),我想在一列中计算一个项目.
例如,表格如下:
column1 | column2
-----------+-------------
employee1 | employee2
employee3 | employee1
employee1 | employee1
employee2 | employee3
我想在这列数的员工,例如,如何我能得到的结果2,从count( employee1)在column1？