طريقة لتغيير شكل المكون Edit وقت التصميم و بعده

[hanipino]

طريقة لتغيير شكل المكون Edit وقت التصميم و بعده
فى حالة الاستعانة بالمكون XPManifest فلن يكون للكود اى تاثير بعد التنفيذ .

المثال على شكل مكون (الخاصية UseXPTheme ) هى المسؤولة عن تغيير شكله

unit EditXP;

interface

uses
Windows, SysUtils, Classes, Controls, StdCtrls, Themes, Messages;

type
TEditXP = class(TEdit)
private
FUseXPTheme: Boolean;

procedure SetXPTheme(Value: Boolean);
Procedure WMNCPaint( Var Message: TMessage ); Message WM_NCPAINT;
protected

public
constructor Create(AOwner: TComponent); override;
published
property UseXPTheme: Boolean read FUseXPTheme write SetXPTheme;

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Standard', [TEditXP]);
end;

{ TEditXP }

constructor TEditXP.Create(AOwner: TComponent);
begin
inherited;
FUseXPTheme := True;
end;

procedure TEditXP.SetXPTheme(Value: Boolean);
begin
if FUseXPTheme <> Value then
FUseXPTheme := Value;
Width := Width - 1;
Width := Width + 1;
end;

procedure TEditXP.WMNCPaint(var Message: TMessage);
begin
inherited;
if FUseXPTheme then
ThemeServices.PaintBorder(Self, FUseXPTheme); {True Or False !!!}
end;
end.

[kachwahed]

جميل جدا أخي هانئ، بهذا تمكنت من الإجابة على تساؤل طرح في المنتدى.

[hanipino]

... تقريبا :)

[Mr_Delphi]

السلام عليكم

عجيتني فكرة تغيير شكل edit ولكن عندما جربت ذلك وحاولت التنفيد لم انجح

ممكن تشرحلي شوي بالتفصيل لانني مبتدئة

وجزاك الله الف خير

تحياتي لك

[ESSO_X]

السلام عليكم

مشكور اخى على تعديل شكل TEdit
هذة الاضافة على السورس وهى اضافة Alignment
لتنسيق الكتابة فى المنتصف