小编use*_*883的帖子

怎么样,如果shape1.brush.color:= clred和shape2.brush.color:= clred那么DO SOMETHING?

当我使用这两个代码运行应用程序时,显示相同的错误:

运算符不适用于此操作数类型

procedure TForm1.Button4Click(Sender: TObject);
begin
  If (shape1.Brush.Color:=clblue and shape2.Brush.Color:=clblue) then
  begin
    showMessage('error');
  end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  If (shape1.Brush.Color:=clblue) and (shape2.Brush.Color:=clblue) then
  begin
    showMessage('error');
  end;
Run Code Online (Sandbox Code Playgroud)

delphi if-statement brush colors shape

0
推荐指数
1
解决办法
1172
查看次数

标签 统计

brush ×1

colors ×1

delphi ×1

if-statement ×1

shape ×1