ラベルエディットにて。数字がマイナスの時文字を赤くするには？ (ID：5150)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ゆきおさん、ごめんなさい。
記載したソースは、要点抜粋（しかも、机上コーディング）でした。
以下が完全なソースです。
※.たぶん大丈夫と思いますがDelphi7ですので注意してください。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

const
  MAX_EDITS = 5; // ラベルエディットの数
                 // ラベルエディットを追加したときはここを変えればＯＫ

type
  TEditTextValues = Array [0..MAX_EDITS - 1] of Single;

TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    FLblEdits : Array [0..MAX_EDITS - 1] of TLabeledEdit;
    procedure SetAllEditText(Data : TEditTextValues);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ Private : 全ラベルテキストのTextを一括設定 }
procedure TForm1.SetAllEditText(Data : TEditTextValues);
var
  i : Integer;
begin
  for i := 0 to MAX_EDITS - 1 do
  begin
    FLblEdits[i].Text := Format('%f',[Data[i]]);
  end;
end;

{ EVENT : Form OnCreate }
procedure TForm1.FormCreate(Sender: TObject);
var
  Values : TEditTextValues;
begin
  FlblEdits[0] := LabeledEdit1;
  FlblEdits[1] := LabeledEdit2;
  FlblEdits[2] := LabeledEdit3;
  FlblEdits[3] := LabeledEdit4;
  FlblEdits[4] := LabeledEdit5;

Values[0] := 1;
  Values[1] := 2;
  Values[2] := 3;
  Values[3] := 4;
  Values[4] := 5;

SetAllEditText(Values);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る